Parte I: Construcción de la clave

1 Se lee el microdato Censo 2017 csv con la función import de la librería rio.

library("rio")
x <- import("Microdato_Censo2017-Personas.csv")

Hacemos un subset para trabajar mas rápido:

x <- x[c(1:10000),]

El código se construye uniendo los siguientes elementos de la base de datos

COMUNA : Se mantiene igual. DC : Siempre debe tener dos digitos anteponiendo un cero si tiene uno. AREA : Se mantiene igual. ZC_LOC : Siempre debe tener tres digitos anteponiendo un cero si tiene dos y dos si tiene uno.

2 Analicemos la estructura del código de Comuna:

unique(x$COMUNA)
## [1] 15202 15201 15102 15101
  • Vemos que algunos códigos tienen 5 digitos y otros 4. Vamos a dejar ésto inalterado . Sin embargo, añadimos un trozo de código si en el futuro se desea agregar un cero previo a las comunas de 4 dígitos para homologar.
# recogemos el campo Comuna:
codigos <- x$COMUNA
# construimos una secuencia llamada rango del 1 al total de filas del dataset:
rango <- seq(1:nrow(x))
# Creamos un string que agrega un cero a todos los registros:
cadena<- paste("0",codigos[rango], sep = "")

# El string cadena tiene o 5 o 6 digitos, los cuales siempre deben ser siempre 5 agregandole un cero al inicio de los que tienen 4.
# Para ello extraemos un substring de la cadena sobre todas las filas (rangos) comenzando desde el primero o el segundo y llegando siempre al 6.

cadena <- substr(cadena,(nchar(cadena)[rango])-(4),6)
codigos <- as.data.frame(codigos)
cadena <- as.data.frame(cadena)
comuna_corr <- cbind(codigos,cadena)
  • Lo verificamos
unique(comuna_corr$cadena)
## [1] "15202" "15201" "15102" "15101"

3 Analicemos la estructura del código de DC:

unique(x$DC)
## [1]  1  2  3  4 99  5  6  7  8

Debemos agregar un cero a la izquierda a todos los códigos DC que contengan un dígito:

# Le asignamos a la variable codigos, la variable DC del dataframe x:
codigos <- x$DC

# Creamos una secuencia llamada rango con toda la cantidad de registros del dataframe:
rango <- seq(1:nrow(x))

# Creamos un string que añade un cero a todos los codigos quedando algunos con dos dígitos y otros con tres: 
cadena <- paste("0",codigos[rango], sep = "")

# Ésta es la línea más importante del código. 
# Si el string entrante contiene tres digitos, la función substr comenzaría desde la posición 2 a la 3, y si tiene 2, comenzaría desde la posición 1 a la 3, pero como no existe posición tres, llega a la 2.

cadena <- substr(cadena,(nchar(cadena)[rango])-(1),(nchar(cadena)[rango]))

codigos <- as.data.frame(codigos)
cadena <- as.data.frame(cadena)
dc <- cbind(codigos,cadena)
  • Lo verificamos
unique(dc$cadena)
## [1] "01" "02" "03" "04" "99" "05" "06" "07" "08"

4 Analicemos la estructura del código de zc_loc:

a002 <- unique(x$ZC_LOC)

kbl(a002) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "30%", height = "300px")
x
6
8
12
15
4
5
9
11
901
1
2
10
14
13
999
7
21
3
20
17

Deben todos los codigos poseer tres dígitos, agregándole un cero a los que tienen 2 y dos ceros a los que tienen uno.

codigos <- x$ZC_LOC
rango <- seq(1:nrow(x))
cadena<- paste("00",codigos[rango], sep = "")
cadena <- substr(cadena,(nchar(cadena)[rango])-(2),nchar(cadena)[rango])
codigos <- as.data.frame(codigos)
cadena <- as.data.frame(cadena)
cadena_c <- cbind(codigos,cadena)

6 lo verificamos

unique(cadena_c$cadena)
##  [1] "006" "008" "012" "015" "004" "005" "009" "011" "901" "001" "002" "010"
## [13] "014" "013" "999" "007" "021" "003" "020" "017"

7 Unimos nuestra nueva clave a nuestro dataframe original con el nombre de campo clave:

x$clave <- paste(x$COMUNA, dc$cadena, x$AREA,  cadena_c$cadena, sep="")
  • Verificamos y vemos que la última columna contiene la clave.

Recordemos que:

COMUNA : Se mantiene igual.
DC : Siempre debe tener dos digitos anteponiendo un cero si tiene uno.
AREA : Se mantiene igual.
ZC_LOC : Siempre debe tener tres digitos anteponiendo un cero si tiene dos y dos si tiene uno.

tablamadre <- head(x,50)

kbl(tablamadre) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
REGION PROVINCIA COMUNA DC AREA ZC_LOC ID_ZONA_LOC NVIV NHOGAR PERSONAN P07 P08 P09 P10 P10COMUNA P10PAIS P11 P11COMUNA P11PAIS P12 P12COMUNA P12PAIS P12A_LLEGADA P12A_TRAMO P13 P14 P15 P15A P16 P16A P16A_OTRO P17 P18 P19 P20 P21M P21A P10PAIS_GRUPO P11PAIS_GRUPO P12PAIS_GRUPO ESCOLARIDAD P16A_GRUPO REGION_15R PROVINCIA_15R COMUNA_15R P10COMUNA_15R P11COMUNA_15R P12COMUNA_15R clave
15 152 15202 1 2 6 13225 1 1 1 1 1 73 1 98 998 3 15101 998 1 98 998 9998 98 2 4 6 2 1 2 98 7 98 98 98 98 9998 998 998 998 4 2 15 152 15202 98 15101 98 15202012006
15 152 15202 1 2 6 13225 3 1 1 1 1 78 1 98 998 2 98 998 1 98 998 9998 98 3 98 98 98 1 2 98 7 98 98 98 98 9998 998 998 998 0 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 3 1 2 2 2 78 1 98 998 2 98 998 1 98 998 9998 98 3 98 98 98 1 2 98 7 98 1 1 3 1965 998 998 998 0 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 3 1 3 5 2 52 1 98 998 2 98 998 1 98 998 9998 98 1 2 5 2 1 2 98 7 98 2 1 4 1995 998 998 998 2 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 3 1 4 11 1 44 1 98 998 2 98 998 1 98 998 9998 98 1 3 5 2 1 2 98 1 Z 98 98 98 9998 998 998 998 3 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 9 1 1 1 1 39 1 98 998 2 98 998 1 98 998 9998 98 2 8 5 1 1 2 98 8 98 98 98 98 9998 998 998 998 8 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 9 1 2 2 2 35 1 98 998 2 98 998 1 98 998 9998 98 2 6 5 2 1 2 98 1 Z 2 2 11 2004 998 998 998 6 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 9 1 3 5 1 13 1 98 998 2 98 998 1 98 998 9998 98 1 7 5 2 1 2 98 98 98 98 98 98 9998 998 998 998 7 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 9 1 4 5 1 12 1 98 998 2 98 998 1 98 998 9998 98 1 6 5 2 1 2 98 98 98 98 98 98 9998 998 998 998 6 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 10 1 1 1 2 65 1 98 998 2 98 998 1 98 998 9998 98 2 4 5 2 1 2 98 6 98 3 3 9 1992 998 998 998 4 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 13 1 1 1 1 50 1 98 998 2 98 998 1 98 998 9998 98 2 5 5 2 1 2 98 1 Z 98 98 98 9998 998 998 998 5 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 13 1 2 4 2 43 1 98 998 2 98 998 1 98 998 9998 98 2 6 5 2 1 2 98 6 98 2 2 3 2002 998 998 998 6 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 13 1 3 5 1 15 3 15201 998 2 98 998 1 98 998 9998 98 1 1 7 2 1 2 98 8 98 98 98 98 9998 998 998 998 9 2 15 152 15202 15201 98 98 15202012006
15 152 15202 1 2 6 13225 16 1 1 1 1 75 1 98 998 2 98 998 1 98 998 9998 98 3 98 98 98 1 2 98 7 98 98 98 98 9998 998 998 998 0 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 16 1 2 16 2 58 4 98 68 6 98 998 5 98 998 9999 1 3 98 98 98 1 2 98 7 98 4 4 99 9999 68 68 68 0 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 16 1 3 2 2 70 1 98 998 2 98 998 1 98 998 9998 98 3 98 98 98 1 2 98 7 98 5 4 99 9999 998 998 998 0 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 17 1 1 1 2 43 2 98 998 2 98 998 1 98 998 9998 98 2 8 5 1 1 2 98 1 I 3 3 9 2008 998 998 998 8 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 17 1 2 4 1 55 2 98 998 2 98 998 1 98 998 9998 98 2 6 5 2 1 2 98 6 98 98 98 98 9998 998 998 998 6 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 17 1 3 5 2 13 2 98 998 2 98 998 2 15101 998 9998 98 1 7 5 2 1 2 98 98 98 98 98 98 9998 998 998 998 7 2 15 152 15202 98 98 15101 15202012006
15 152 15202 1 2 6 13225 17 1 4 5 1 8 2 98 998 2 98 998 2 15101 998 9998 98 1 2 5 2 1 2 98 98 98 98 98 98 9998 998 998 998 2 2 15 152 15202 98 98 15101 15202012006
15 152 15202 1 2 6 13225 17 1 5 15 2 29 2 98 998 4 98 998 3 98 998 2015 1 2 6 5 2 1 2 98 6 98 5 5 11 2014 998 604 604 6 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 17 1 6 15 1 4 2 98 998 1 98 998 5 98 998 2015 1 1 0 1 2 1 2 98 98 98 98 98 98 9998 998 998 68 0 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 17 1 7 15 2 2 2 98 998 1 98 998 3 98 998 2015 1 1 0 1 2 1 2 98 98 98 98 98 98 9998 998 998 604 0 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 17 1 8 15 1 16 2 98 998 6 98 998 1 98 998 9998 98 2 4 5 2 1 2 98 6 98 98 98 98 9998 998 68 998 4 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 18 1 1 1 2 74 1 98 998 2 98 998 1 98 998 9998 98 2 2 5 2 1 2 98 6 98 2 2 12 1976 998 998 998 2 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 19 1 1 1 1 68 1 98 998 2 98 998 1 98 998 9998 98 3 98 98 98 1 2 98 7 98 98 98 98 9998 998 998 998 0 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 20 1 1 1 1 74 1 98 998 3 15101 998 1 98 998 9998 98 2 2 5 2 1 2 98 1 Z 98 98 98 9998 998 998 998 2 2 15 152 15202 98 15101 98 15202012006
15 152 15202 1 2 6 13225 20 1 2 2 2 65 1 98 998 3 997 998 3 98 998 9999 2 2 2 5 2 1 2 98 6 98 2 2 9 1982 998 998 604 2 2 15 152 15202 98 997 98 15202012006
15 152 15202 1 2 6 13225 25 1 1 1 2 76 1 98 998 2 98 998 1 98 998 9998 98 3 98 98 98 1 2 98 6 98 8 6 3 1981 998 998 998 0 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 25 1 2 5 2 36 1 98 998 2 98 998 1 98 998 9998 98 2 4 8 1 1 2 98 1 A 0 98 98 9998 998 998 998 12 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 28 1 1 1 2 31 1 98 998 2 98 998 5 98 998 2007 2 2 5 5 2 1 2 98 1 A 2 2 4 2008 998 998 68 5 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 28 1 2 4 1 35 1 98 998 2 98 998 5 98 998 2007 2 2 6 5 2 1 2 98 1 F 98 98 98 9998 998 998 68 6 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 28 1 3 5 1 11 1 98 998 2 98 998 5 98 998 2007 2 1 5 5 2 1 2 98 98 98 98 98 98 9998 998 998 68 5 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 28 1 4 5 1 8 1 98 998 2 98 998 1 98 998 9998 98 1 2 5 2 1 2 98 98 98 98 98 98 9998 998 998 998 2 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 28 1 5 15 2 74 1 98 998 2 98 998 1 98 998 9998 98 2 3 5 2 1 2 98 6 98 6 6 99 9999 998 998 998 3 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 33 1 1 1 1 41 1 98 998 2 98 998 1 98 998 9998 98 2 8 5 1 1 2 98 1 Z 98 98 98 9998 998 998 998 8 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 33 1 2 2 2 47 1 98 998 2 98 998 1 98 998 9998 98 2 8 5 1 1 2 98 1 A 2 1 4 1996 998 998 998 8 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 33 1 3 14 1 88 1 98 998 2 98 998 1 98 998 9998 98 3 98 98 98 1 2 98 7 98 98 98 98 9998 998 998 998 0 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 33 1 4 14 1 65 1 98 998 2 98 998 1 98 998 9998 98 2 2 5 2 1 2 98 7 98 98 98 98 9998 998 998 998 2 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 36 1 1 1 2 59 1 98 998 2 98 998 1 98 998 9998 98 2 2 5 2 1 2 98 6 98 8 8 2 1998 998 998 998 2 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 36 1 2 2 1 56 1 98 998 99 99 999 1 98 998 9998 98 2 2 5 2 1 2 98 6 98 98 98 98 9998 998 999 998 2 2 15 152 15202 98 99 98 15202012006
15 152 15202 1 2 6 13225 36 1 3 5 2 36 1 98 998 2 98 998 1 98 998 9998 98 2 8 5 1 1 2 98 6 98 2 2 7 2010 998 998 998 8 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 36 1 4 12 2 13 1 98 998 2 98 998 1 98 998 9998 98 1 7 5 2 1 2 98 98 98 98 98 98 9998 998 998 998 7 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 36 1 5 12 2 6 1 98 998 2 98 998 1 98 998 9998 98 1 0 3 1 1 2 98 98 98 98 98 98 9998 998 998 998 0 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 36 1 6 5 1 24 1 98 998 3 15101 998 1 98 998 9998 98 2 4 7 1 1 2 98 1 Z 98 98 98 9998 998 998 998 12 2 15 152 15202 98 15101 98 15202012006
15 152 15202 1 2 6 13225 36 1 7 11 2 24 1 98 998 3 15101 998 1 98 998 9998 98 2 4 7 1 1 2 98 1 N 2 2 11 2015 998 998 998 12 2 15 152 15202 98 15101 98 15202012006
15 152 15202 1 2 6 13225 36 1 8 12 1 6 1 98 998 2 98 998 2 15101 998 9998 98 1 0 3 1 1 2 98 98 98 98 98 98 9998 998 998 998 0 2 15 152 15202 98 98 15101 15202012006
15 152 15202 1 2 6 13225 36 1 9 12 2 1 1 98 998 1 98 998 2 15101 998 9998 98 3 98 98 98 1 2 98 98 98 98 98 98 9998 998 998 998 0 2 15 152 15202 98 98 15101 15202012006
15 152 15202 1 2 6 13225 38 1 1 1 1 19 1 98 998 3 15101 998 2 15101 998 9998 98 1 1 8 2 1 2 98 1 A 98 98 98 9998 998 998 998 9 2 15 152 15202 98 15101 15101 15202012006
15 152 15202 1 2 6 13225 39 1 1 1 1 21 1 98 998 2 98 998 1 98 998 9998 98 2 1 7 2 1 2 98 1 F 98 98 98 9998 998 998 998 9 2 15 152 15202 98 98 98 15202012006

Observemos algunas claves:

unicas <- unique(x$clave)
codigos_unicos <- head(unicas,50)

kbl(codigos_unicos) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
x
15202012006
15202012008
15202012012
15202012015
15202022004
15202022005
15202022009
15202022011
15202022901
15202032001
15202032002
15202032010
15202032014
15202032901
15202042013
15202042901
15202992999
15201011001
15201012901
15201022002
15201032006
15201032007
15201032901
15201042009
15201042021
15201042901
15201052001
15201052003
15201052012
15201052013
15201052020
15201052901
15201062005
15201062010
15201062017
15201062901
15201072901
15201082004
15201991999
15102012002
15102012003
15102022007
15102032005
15102032008
15102032901
15102042001
15102052004
15102052006
15101011001
15101011002


Parte II: Generación de las tablas de contingencia:

El Censo 2017 contempla preguntas agrupadas por el prefijo P y un número. Comenzaremos con la P07:

P07 Relación de parentesco.

La categoria 19: “Persona en operativo calle” no figura en la base de datos.

tabla_P07 <- table(x$clave, x$P07, useNA = "no")

colnames(tabla_P07) <- c("Jefe/a de hogar","Esposo/a o cónyuge","Conviviente por unión civil","Conviviente de hecho o pareja","Hijo/a","Hijo/a del cónyuge, conviviente o pareja","Hermano/a","Padre/madre","Cuñado/a","Suegro/a","Yerno/nuera","Nieto/a","Abuelo/a","Otro pariente","No pariente","Servicio doméstico puertas adentro","Persona en vivienda colectiva","Persona en tránsito")






#write_xlsx(tabla_P07, "tabla_P07.xlsx")
a001 <- head(tabla_P07,5)
kbl(a001) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
Jefe/a de hogar Esposo/a o cónyuge Conviviente por unión civil Conviviente de hecho o pareja Hijo/a Hijo/a del cónyuge, conviviente o pareja Hermano/a Padre/madre Cuñado/a Suegro/a Yerno/nuera Nieto/a Abuelo/a Otro pariente No pariente Servicio doméstico puertas adentro Persona en vivienda colectiva Persona en tránsito
15101011001 438 125 5 43 274 14 31 14 10 8 16 47 1 66 35 7 411 0
15101011002 339 91 1 33 193 6 19 18 7 3 8 36 2 45 30 2 168 0
15101021001 830 240 9 86 548 14 46 36 7 11 14 107 3 75 62 0 662 0
15102012002 12 4 0 1 7 0 0 0 0 0 0 0 0 0 0 1 0 0
15102012003 220 54 0 9 96 0 10 3 0 1 6 22 0 37 40 2 65 0


P08 Sexo.

tabla_P08 <- table(x$clave, x$P08, useNA = "no")
colnames(tabla_P08) <- c("Hombre","Mujer")

#write_xlsx(tabla_P08, "tabla_P08.xlsx")

a_003 <- head(tabla_P08,50)
kbl(a_003) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
Hombre Mujer
15101011001 843 702
15101011002 494 507
15101021001 1692 1058
15102012002 16 9
15102012003 300 265
15102022007 21 18
15102032005 55 57
15102032008 9 5
15102032901 17 13
15102042001 105 76
15102052004 174 85
15102052006 29 1
15201011001 1323 393
15201012901 19 18
15201022002 37 15
15201032006 22 9
15201032007 38 14
15201032901 18 17
15201042009 10 5
15201042021 41 34
15201042901 10 12
15201052001 34 29
15201052003 38 15
15201052012 12 13
15201052013 7 10
15201052020 11 7
15201052901 3 4
15201062005 4 0
15201062010 21 19
15201062017 2 0
15201062901 2 3
15201072901 25 28
15201082004 7 0
15201991999 370 66
15202012006 27 29
15202012008 6 6
15202012012 9 10
15202012015 96 73
15202022004 25 17
15202022005 8 7
15202022009 29 39
15202022011 70 17
15202022901 10 10
15202032001 14 8
15202032002 14 13
15202032010 4 11
15202032014 69 0
15202032901 8 8
15202042013 15 15
15202042901 8 8


P09 Edad.

tabla_P09 <- table(x$clave, x$P09, useNA = "no")
#write_xlsx(tabla_P09, "tabla_P09.xlsx")


a_004 <- head(tabla_P09,50)

kbl(a_004) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 95 96 97 98 99 100
15101011001 4 15 15 8 16 8 19 13 12 22 14 16 11 14 13 10 12 10 8 11 22 25 16 22 25 35 27 29 33 20 22 33 24 20 28 23 25 29 29 21 18 19 16 27 21 27 18 19 21 16 18 20 16 15 21 20 29 25 15 24 21 19 19 24 19 12 18 16 20 18 16 20 10 10 10 13 13 11 15 9 6 6 11 7 2 1 7 3 10 2 4 3 0 2 1 1 0 1 0 1
15101011002 9 6 7 8 9 10 7 15 3 6 3 8 11 10 4 12 13 11 7 9 16 12 11 17 14 16 12 15 13 16 15 19 13 21 15 11 16 8 13 12 13 10 15 17 10 19 16 13 10 18 15 13 13 7 17 20 17 17 19 18 11 12 6 17 10 18 9 9 19 12 13 13 7 13 8 14 12 8 3 6 6 3 0 1 3 2 2 3 2 0 4 2 0 0 0 0 1 1 0 1
15101021001 34 39 26 22 23 24 38 25 20 25 26 18 14 27 27 18 25 25 171 219 88 70 68 50 48 65 57 48 42 55 41 41 46 36 43 51 39 29 25 24 30 22 25 36 35 22 20 25 31 32 24 20 22 16 25 27 26 28 18 36 25 27 15 20 23 19 14 14 19 11 10 10 16 19 12 19 14 15 14 10 12 6 11 15 7 7 11 4 2 3 0 5 3 2 1 1 1 0 1 0
15102012002 0 0 2 0 1 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 1 0 1 1 1 1 1 1 2 0 1 0 0 1 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
15102012003 5 2 6 5 6 7 5 9 6 5 5 7 4 7 2 7 5 6 5 2 4 10 3 7 6 9 6 6 8 13 8 3 4 9 6 7 11 5 7 6 5 6 8 5 5 15 5 10 3 6 8 10 7 11 10 7 7 7 15 10 8 8 9 9 1 12 7 5 8 12 11 5 8 7 6 4 5 3 2 3 3 3 1 7 0 2 2 1 3 0 1 3 0 0 0 0 1 0 1 0
15102022007 0 1 1 0 0 0 0 1 0 1 2 0 1 1 2 0 0 2 0 2 0 0 1 0 0 0 0 1 1 0 0 2 1 1 1 1 0 0 0 0 3 0 0 1 0 1 0 1 0 0 0 1 0 0 1 0 1 0 0 1 1 0 0 2 0 1 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15102032005 1 1 1 1 1 1 1 1 1 1 2 2 1 1 2 1 1 1 1 2 0 2 1 3 2 2 3 2 4 3 0 1 2 0 1 1 1 2 1 1 5 1 2 4 2 2 1 0 1 0 2 1 2 0 0 3 2 1 1 1 0 0 1 0 3 2 2 2 0 3 1 1 0 2 1 3 1 1 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0
15102032008 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 1 1 0 1 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15102032901 0 0 0 0 0 0 0 0 0 0 0 1 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 2 1 1 1 0 1 1 1 0 1 0 1 0 1 0 0 1 0 0 0 0 0 0 0 1 2 0 1 2 0 1 0 0 0 1 0 2 1 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0
15102042001 3 3 3 3 2 1 4 2 3 1 1 1 2 1 2 0 2 1 1 1 2 2 1 5 0 3 3 3 3 1 6 4 7 1 4 3 3 0 0 3 1 1 4 3 3 4 5 3 1 3 5 3 2 0 2 3 4 4 3 0 4 4 3 2 0 2 3 4 3 0 0 1 2 0 0 1 1 1 0 0 1 0 1 1 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0
15102052004 2 4 3 2 1 3 4 1 2 6 2 5 0 3 5 2 1 2 1 3 1 5 5 4 6 8 5 3 6 4 7 5 4 6 4 1 6 6 3 3 1 8 6 5 2 5 1 3 2 2 4 8 8 2 3 7 4 3 3 1 6 3 6 5 2 2 2 1 1 2 3 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0
15102052006 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 2 1 2 0 0 2 0 1 0 1 2 3 3 0 1 0 0 0 0 2 1 1 0 0 0 0 0 1 1 1 1 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201011001 1 24 10 17 12 6 10 18 15 13 12 14 8 16 7 9 8 76 252 129 69 38 51 42 45 31 40 33 31 29 32 25 27 29 33 29 29 33 19 27 18 17 16 25 14 12 10 19 16 11 12 12 12 15 8 9 8 11 11 7 3 8 9 5 4 4 2 3 5 2 4 6 1 2 5 5 3 8 3 3 1 1 2 1 5 3 2 0 0 1 1 0 0 0 0 1 0 0 0 1
15201012901 0 1 2 1 0 1 1 1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 1 1 1 1 0 2 0 0 1 0 0 1 1 0 1 0 0 1 0 1 2 0 1 0 0 1 0 1 1 0 1 0 0 1 0 0 0 1 0 0 1 2 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
15201022002 0 0 0 1 0 0 0 0 1 0 0 0 1 0 1 1 0 0 0 1 0 0 1 1 0 0 0 2 4 1 1 3 1 1 1 0 0 0 1 0 0 0 0 2 0 0 2 3 0 1 2 2 0 0 1 1 2 0 0 2 0 1 1 0 0 1 1 0 0 1 0 0 2 1 0 1 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201032006 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 2 2 1 1 0 1 1 1 0 3 1 1 1 1 0 1 1 0 0 0 0 0 0 1 2 0 0 0 0 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 1 0 0 0 0 0 0 0 0 0 0
15201032007 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 0 0 0 0 3 4 2 2 4 0 2 2 2 4 2 1 0 2 1 1 1 1 1 3 2 2 2 0 1 0 0 1 1 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201032901 1 0 0 0 0 0 0 1 2 1 0 1 1 1 0 0 0 0 0 0 1 0 0 0 0 1 1 0 0 0 2 0 2 0 1 0 0 0 0 0 0 1 0 1 0 0 0 1 0 0 1 1 0 1 1 1 1 1 0 0 1 1 1 1 1 1 0 0 0 0 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201042009 0 0 0 0 0 0 0 0 0 0 1 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 1 0 0 0 1 0 0 1 0 0 0 1 0 0 0 0 0 1 0 1 0 1 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0
15201042021 0 0 0 1 0 0 0 0 0 1 0 2 0 1 0 0 0 0 0 0 1 0 1 0 2 1 0 0 0 0 1 3 1 0 2 0 1 0 1 1 0 1 2 3 2 0 3 2 1 0 1 0 4 0 1 0 1 0 3 0 1 2 2 1 0 3 0 1 3 1 1 0 1 0 0 2 1 0 2 0 2 2 0 1 1 0 1 0 1 0 1 0 0 0 0 0 0 1 0 0
15201042901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 2 0 1 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 0 2 0 1 2 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 1 0 0 0 1 0 0 0 0 0 0 0 0 1 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201052001 1 0 0 0 0 3 0 1 0 0 1 0 0 3 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 3 0 0 0 1 1 1 0 4 0 2 0 1 6 0 1 1 0 2 1 2 0 1 0 1 0 2 0 2 0 0 0 0 2 0 2 1 0 0 1 1 1 1 1 1 1 3 0 3 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201052003 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 0 1 0 0 0 0 0 0 1 0 0 0 2 0 0 3 0 1 1 0 0 0 2 0 2 1 1 3 1 1 1 1 0 2 0 1 0 0 1 0 0 1 3 1 0 2 1 0 1 0 0 0 1 3 1 0 1 0 0 0 0 0 0 0 1 0 1 2 0 3 0 0 1 1 0 0 0 0 0 0 0 0 0 0
15201052012 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 1 0 1 0 0 1 1 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 1 0 1 1 1 0 0 0 0 1 0 1 0 0 0 0 3 0 0 1 0 0 0 0 1 0 0 1 0 1 1 1 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201052013 0 0 0 0 0 0 0 2 0 0 0 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201052020 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 0 2 0 0 0 1 1 0 1 0 1 0 0 0 1 1 0 0 0 1 0 0 1 1 0 1 0 0 0 1 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0
15201052901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 1 0 0 0 0 0 2 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0
15201062005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201062010 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 1 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 1 0 1 0 0 0 0 1 1 2 0 2 3 2 1 2 2 2 0 0 1 1 0 1 2 1 0 0 2 1 0 0 1 0 2 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201062017 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201062901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201072901 0 0 0 1 1 2 2 1 2 0 2 0 0 0 0 1 0 0 1 1 0 0 0 0 0 0 0 1 2 0 1 2 1 0 0 2 0 1 1 0 0 1 1 0 0 0 0 0 0 0 0 1 1 0 0 0 1 1 2 1 0 1 0 3 0 2 1 3 2 0 3 1 0 1 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201082004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201991999 0 1 2 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 3 3 5 4 6 4 9 5 14 8 12 9 13 18 7 10 11 19 16 8 8 12 19 16 16 20 7 9 14 9 9 13 10 7 4 10 4 4 9 8 8 3 5 2 3 3 3 3 1 1 2 1 1 2 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202012006 0 1 1 1 1 0 3 0 2 0 0 1 1 3 0 1 1 0 0 1 0 1 1 0 3 0 1 0 0 1 0 1 0 0 0 2 2 0 0 1 0 1 0 2 1 0 0 1 0 0 1 0 1 0 0 1 1 0 1 1 0 0 0 0 0 3 0 0 1 0 1 1 0 1 3 1 1 0 2 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0
15202012008 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 2 0 1 0 0 0 0 0 0 1 0 0 0 1 2 1 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202012012 1 0 1 0 0 0 1 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 1 2 0 1 1 0 0 0 1 0 0 0 0 1 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202012015 2 3 0 2 1 2 3 2 0 1 0 3 3 1 1 2 1 2 1 1 1 2 3 0 3 3 3 2 2 2 1 3 2 4 3 4 2 5 3 3 4 4 5 3 3 0 2 5 4 1 3 0 1 5 7 3 2 3 3 1 2 3 1 2 1 3 2 1 2 3 2 0 2 0 0 2 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0
15202022004 0 1 0 2 0 0 2 0 3 0 0 1 0 2 1 3 0 0 1 0 0 0 1 0 0 0 1 0 1 0 0 1 0 1 0 1 0 0 1 1 0 1 0 0 0 1 1 0 0 0 0 0 0 2 1 0 0 1 0 2 1 2 0 1 1 0 0 0 0 0 1 0 0 0 0 1 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202022005 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 1 1 0 0 0 2 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202022009 2 0 1 2 0 0 0 0 1 1 1 1 0 2 1 1 2 1 1 2 1 0 0 2 1 0 0 0 4 0 0 0 0 0 2 1 1 0 0 1 0 2 2 0 1 2 1 0 2 1 2 1 0 0 0 1 1 1 2 2 0 0 1 1 1 2 2 1 2 0 1 1 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
15202022011 0 2 0 1 0 0 1 1 0 1 0 0 0 1 0 2 1 0 2 4 3 1 4 3 1 2 2 3 3 5 4 4 0 2 1 0 3 2 0 0 1 1 0 2 2 1 0 0 2 0 0 0 1 0 1 1 2 0 1 1 0 3 1 2 1 0 0 0 1 2 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202022901 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 1 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 1 0 0 0 2 0 1 0 0 0 0 0 0 2 0 1 1 0 1 0 0 0 0 0 1 0 0 2 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202032001 0 1 0 2 0 2 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 3 0 1 0 0 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0 0 1 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202032002 1 2 0 1 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 2 0 1 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 1 0 0 2 0 0 0 0 1 1 0 2 0 0 0 1 0 0 0 1 0 3 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202032010 1 1 0 0 0 0 1 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 2 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202032014 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 7 5 3 4 6 1 4 5 4 3 1 1 4 3 2 5 1 3 1 2 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202032901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 1 0 1 0 2 0 1 0 1 0 0 2 0 1 0 0 0 0 1 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202042013 0 0 0 1 1 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 1 1 1 1 0 0 0 0 0 0 1 0 1 0 0 0 1 2 1 2 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 3 0 1 0 0 0 0 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0
15202042901 1 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 3 0 0 1 1 1 0 0 0 0 0 0 0 1 0 0 1 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0


P10 Residencia habitual.

tabla_P10 <- table(x$clave, x$P10, useNA = "no")

#write_xlsx(tabla_P10, "tabla_P10.xlsx")

a_005 <- head(tabla_P10,50)

kbl(a_005) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
1 2 3 4 99
15101011001 1087 205 156 80 17
15101011002 784 57 126 15 19
15101021001 1976 674 66 9 25
15102012002 24 1 0 0 0
15102012003 430 27 84 16 8
15102022007 32 0 7 0 0
15102032005 83 9 20 0 0
15102032008 13 0 1 0 0
15102032901 29 0 1 0 0
15102042001 147 12 17 4 1
15102052004 176 54 25 2 2
15102052006 0 4 26 0 0
15201011001 914 711 72 6 13
15201012901 25 0 3 9 0
15201022002 43 2 7 0 0
15201032006 15 2 14 0 0
15201032007 0 5 47 0 0
15201032901 35 0 0 0 0
15201042009 15 0 0 0 0
15201042021 61 1 10 2 1
15201042901 11 2 1 7 1
15201052001 46 2 4 4 7
15201052003 33 10 7 1 2
15201052012 24 1 0 0 0
15201052013 12 0 0 0 5
15201052020 17 0 1 0 0
15201052901 3 3 0 0 1
15201062005 0 0 4 0 0
15201062010 39 0 1 0 0
15201062017 0 1 1 0 0
15201062901 5 0 0 0 0
15201072901 48 3 1 0 1
15201082004 0 0 7 0 0
15201991999 5 0 34 396 1
15202012006 46 8 1 1 0
15202012008 11 0 0 0 1
15202012012 16 1 0 0 2
15202012015 130 14 19 2 4
15202022004 42 0 0 0 0
15202022005 15 0 0 0 0
15202022009 65 0 0 0 3
15202022011 74 12 1 0 0
15202022901 18 0 0 0 2
15202032001 21 0 0 0 1
15202032002 26 0 1 0 0
15202032010 15 0 0 0 0
15202032014 56 13 0 0 0
15202032901 16 0 0 0 0
15202042013 23 7 0 0 0
15202042901 13 0 2 0 1


Demografía geográfica.

P10COMUNA Comuna de residencia habitual.

98: No aplica 99: Missing

tabla_P10COMUNA <- table(x$clave, x$P10COMUNA)

#write_xlsx(tabla_P10COMUNA, "tabla_P10COMUNA.xlsx")

a_006 <- head(tabla_P10COMUNA,50)

kbl(a_006) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
98 99 997 1101 1107 1401 1403 2101 2103 2201 3102 3301 4101 4102 4201 4203 4301 5000 5101 5102 5103 5105 5107 5109 5301 5401 5404 5501 5502 5504 5601 5602 5701 5702 5801 5804 6113 6115 6117 6303 7101 7102 7301 7401 7406 7408 8101 8102 8103 8111 8112 8201 8202 8301 8309 9101 9110 9116 9118 9120 9210 10101 10302 12000 12101 13000 13101 13102 13103 13104 13105 13106 13107 13108 13109 13110 13111 13113 13114 13118 13119 13120 13121 13122 13123 13124 13125 13127 13129 13130 13131 13201 13203 13301 13401 13403 13404 13601 13602 13604 13605 14101 14106 14204 15000 15101 15102 15201 15202 16101 16205
15101011001 1372 17 1 9 0 0 0 7 0 5 0 0 4 6 0 0 3 1 3 0 0 0 0 3 0 0 0 0 0 0 0 1 0 0 0 1 1 3 1 2 5 0 1 4 0 0 2 0 1 0 0 0 0 0 0 0 1 1 0 0 0 3 0 0 0 2 22 2 4 0 2 0 1 1 0 3 2 1 5 2 2 0 3 1 2 6 1 1 3 0 3 3 3 0 2 0 1 3 1 3 0 0 0 0 0 0 0 0 0 1 1
15101011002 856 19 5 3 0 0 0 5 0 0 2 4 0 2 0 0 3 0 2 0 0 2 4 2 1 0 0 2 3 0 2 0 1 0 2 0 0 0 1 0 0 1 0 0 1 0 1 0 0 0 1 2 1 1 0 3 0 0 0 2 0 0 0 2 0 0 10 2 2 1 0 2 0 0 2 5 0 2 2 2 3 7 0 0 2 3 0 1 0 6 0 9 0 0 0 0 0 1 1 1 0 1 0 0 0 0 0 0 0 0 0
15101021001 2659 25 4 2 0 0 0 0 0 3 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 2 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 2 0 1 0 0 0 0 0 0 0 0 1 0 0 1 0 0 2 0 14 1 0 0 0 0 0 0 0 1 0 0 1 0 10 2 0 0 0 1 2 1 2 0 0 0 0 1 0 0 2 0 0 0 4 1 0 0 0 0 0 0 0 2 0
15102012002 25 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15102012003 473 8 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 80 0 0 0 0 0
15102022007 32 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0
15102032005 92 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 20 0 0 0 0 0
15102032008 13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
15102032901 29 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
15102042001 163 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 17 0 0 0 0 0
15102052004 232 2 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 3 0 0 0 0 0 1 0 0 0 14 0 0 0 0 0
15102052006 4 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 22 0 0 0 0 0
15201011001 1631 13 0 0 0 0 0 2 0 0 0 0 0 3 3 1 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 1 1 0 0 0 0 0 0 2 2 0 0 0 0 0 4 0 2 0 0 0 8 0 0 0 1 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 0 29 0 0 1 2 0
15201012901 34 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0
15201022002 45 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 0 0 0 0 0
15201032006 17 0 0 0 3 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 9 0 0 1 0 0
15201032007 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 47 0 0 0 0 0
15201032901 35 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201042009 15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201042021 64 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 9 0 0 1 0 0
15201042901 20 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
15201052001 52 7 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0
15201052003 44 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 0 0 0 0 0
15201052012 25 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201052013 12 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201052020 17 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
15201052901 6 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201062005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0
15201062010 39 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201062017 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
15201062901 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201072901 51 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
15201082004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 0 0 0 0 0
15201991999 401 1 1 1 0 0 0 2 1 3 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 21 1 0 0 0 0
15202012006 55 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0
15202012008 11 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202012012 17 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202012015 146 4 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 16 0 1 0 0 0
15202022004 42 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202022005 15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202022009 65 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202022011 86 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
15202022901 18 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202032001 21 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202032002 26 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
15202032010 15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202032014 69 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202032901 16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202042013 30 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202042901 13 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0


P11COMUNA Comuna de residencia de hace 5 años.

tabla_P11COMUNA <- table(x$clave, x$P11COMUNA, useNA = "no")
#write_xlsx(tabla_P11COMUNA, "tabla_P11COMUNA.xlsx")


a_007 <- head(tabla_P11COMUNA,50)

kbl(a_007) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
98 99 997 1000 1101 1107 1401 1402 1404 1405 2000 2101 2102 2104 2201 2202 2203 2301 2302 3101 3102 3201 3202 3301 3304 4101 4102 4106 4201 4202 4203 4204 4301 4302 4303 5101 5102 5103 5105 5107 5109 5201 5301 5304 5401 5404 5501 5502 5504 5601 5602 5603 5604 5701 5702 5801 5802 5803 5804 6101 6102 6104 6106 6107 6108 6110 6112 6113 6115 6116 6117 6203 6205 6301 6303 6307 6308 6310 7101 7102 7103 7105 7107 7109 7201 7301 7302 7304 7401 7402 7403 7404 7405 7406 7407 7408 8000 8101 8102 8103 8105 8106 8107 8108 8109 8110 8111 8112 8201 8202 8203 8205 8206 8301 8303 8304 8305 8306 8309 8311 8312 8313 9000 9101 9102 9103 9105 9106 9107 9108 9109 9110 9111 9112 9115 9116 9118 9119 9120 9121 9201 9202 9203 9204 9205 9208 9210 9211 10000 10101 10102 10104 10105 10107 10108 10109 10201 10202 10205 10301 10302 10303 10403 11101 11201 11301 12000 12101 13000 13101 13102 13103 13104 13105 13106 13107 13108 13109 13110 13111 13112 13113 13114 13115 13116 13117 13118 13119 13120 13121 13122 13123 13124 13125 13126 13127 13128 13129 13130 13131 13132 13201 13203 13301 13302 13401 13402 13404 13501 13503 13504 13505 13601 13602 13603 13604 13605 14101 14103 14105 14106 14107 14108 14201 14202 14204 15000 15101 15102 15201 15202 16101 16102 16103 16106 16107 16108 16109 16207 16301 16302 16303
15101011001 1181 36 8 0 22 0 0 0 0 0 0 10 1 0 12 0 0 1 0 2 0 0 0 1 0 11 9 0 0 0 1 0 4 0 1 16 0 0 0 0 12 0 0 0 0 0 0 0 0 2 0 1 0 0 1 3 2 0 1 1 0 0 0 0 0 0 0 1 3 0 1 0 0 2 2 0 0 0 5 0 0 0 0 1 0 1 0 0 3 0 0 0 0 2 0 0 1 6 1 1 1 1 0 0 0 3 2 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 1 1 0 0 0 0 1 0 0 0 1 1 1 0 0 1 0 0 0 1 0 0 0 0 9 0 0 0 0 1 0 1 0 0 4 0 0 0 0 0 0 0 2 1 40 2 3 1 7 4 0 0 1 3 7 1 1 6 0 0 0 2 6 3 3 3 0 8 1 1 3 1 6 0 3 0 6 2 0 2 2 0 1 0 0 0 0 3 0 0 3 0 1 0 0 0 0 1 0 0 0 0 0 0 1 0 2 0 0 0 1 0 0 0 0 0 0
15101011002 745 47 1 0 26 3 0 0 0 1 0 6 0 0 4 0 0 0 0 1 2 1 0 4 0 2 2 0 0 0 0 0 3 0 0 4 0 1 2 3 4 0 0 0 0 0 3 2 0 3 0 0 0 1 0 3 0 0 0 1 1 0 0 0 0 0 0 0 1 0 2 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 2 0 1 0 0 0 1 0 1 0 0 0 0 0 4 0 1 2 1 0 0 0 1 0 0 0 0 0 0 0 0 0 5 0 0 0 0 0 0 0 0 0 0 0 0 1 0 2 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 2 0 2 0 0 22 2 2 1 0 2 0 0 2 5 0 0 3 3 0 0 1 2 3 7 1 0 4 0 0 0 2 1 2 6 0 0 9 0 0 0 1 0 0 0 1 0 0 1 1 0 0 1 1 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0
15101021001 1708 60 12 3 30 4 2 0 0 0 2 25 0 0 28 1 1 2 0 8 0 0 0 3 1 9 5 2 1 1 2 0 7 0 1 21 0 2 0 0 7 2 1 0 1 0 1 4 2 11 1 3 1 5 0 2 2 2 1 12 0 1 0 0 3 1 0 0 0 1 3 1 0 3 4 1 1 3 18 0 0 1 1 3 3 2 1 2 16 1 0 3 2 3 2 0 0 18 10 1 0 3 1 4 1 5 3 2 1 2 3 1 0 18 2 0 5 4 0 0 0 0 0 16 0 1 0 0 1 1 2 0 1 2 1 1 1 1 4 0 4 3 1 1 0 2 0 0 1 11 1 0 0 1 1 2 2 4 1 17 0 1 1 3 6 1 0 5 1 142 12 2 4 5 2 2 2 3 12 6 6 5 28 1 3 5 2 66 5 0 11 7 7 6 3 3 3 4 2 2 1 27 0 3 0 22 1 6 2 0 0 1 1 1 0 4 0 13 0 0 2 0 1 1 1 0 2 0 0 1 0 20 5 0 1 1 0 1 1 4 0 1
15102012002 17 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 4 0 0 0 0 0 0 0 0 0 0 0 0
15102012003 354 15 2 0 2 1 0 1 0 0 0 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 167 0 3 0 0 0 1 0 0 0 0 0 0 0 0
15102022007 30 0 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15102032005 86 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 16 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15102032008 11 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15102032901 19 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 11 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15102042001 142 0 1 0 0 0 0 4 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 26 0 1 0 0 0 0 0 0 0 0 0 0 0 0
15102052004 146 1 0 0 3 3 1 0 1 0 0 6 0 2 0 0 0 0 0 1 0 1 0 0 0 2 0 0 0 0 0 1 0 0 0 1 2 0 0 0 0 0 1 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 9 1 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 2 2 1 0 0 1 0 2 0 0 0 0 0 0 0 2 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 2 2 1 2 0 0 0 0 1 0 41 0 1 0 2 0 0 0 0 0 0 0 0 0 0
15102052006 4 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 2 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 18 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201011001 662 27 8 0 16 9 0 2 0 9 1 8 0 0 3 0 0 2 0 4 0 0 1 1 0 0 8 0 4 0 1 0 4 0 2 4 1 0 0 0 2 0 4 1 0 0 1 0 0 2 0 1 0 0 0 3 0 0 1 2 0 1 1 1 0 0 1 1 0 0 2 0 0 0 1 0 0 0 5 0 1 0 0 2 0 2 1 3 9 0 0 0 0 0 0 1 0 9 2 1 1 2 0 1 0 1 1 0 5 0 0 1 2 3 0 1 6 0 2 1 1 0 0 4 1 2 1 1 0 2 0 0 3 1 0 1 0 1 4 3 0 0 0 1 1 0 5 1 0 2 0 1 1 0 0 0 0 0 0 5 2 1 0 1 1 0 0 1 0 36 4 64 4 4 12 5 1 3 4 1 4 3 10 0 6 31 4 15 7 0 4 1 96 8 24 2 11 0 2 0 0 7 0 3 2 4 0 3 2 8 1 0 1 1 0 0 3 4 1 0 1 0 2 0 1 4 5 350 0 0 25 7 0 0 0 1 0 0 0 0 1 0
15201012901 31 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 3 0 0 0 0 0 0 0 0 0 0 0
15201022002 30 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 13 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201032006 17 0 0 0 0 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 0 0 1 1 0 0 0 0 0 0 0 0 0 0
15201032007 2 0 0 0 1 0 0 0 0 0 0 1 0 0 1 0 0 0 0 2 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 33 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201032901 23 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 0 0 1 0 0 0 0 0 0 0 0 0 0 0
15201042009 15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201042021 56 8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 8 0 0 1 0 0 0 0 0 0 0 0 0 0 0
15201042901 19 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201052001 53 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201052003 31 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 15 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201052012 19 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201052013 10 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201052020 15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201052901 6 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201062005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0
15201062010 37 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 1 0 0 0 0 0 0 0 0 0 0 0
15201062017 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201062901 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201072901 41 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201082004 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201991999 404 1 0 0 1 0 0 0 0 0 0 2 0 0 3 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 19 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202012006 49 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202012008 11 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202012012 17 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202012015 105 5 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 2 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 41 0 4 0 0 0 0 0 0 0 0 0 0 0 0
15202022004 41 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202022005 15 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202022009 58 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202022011 32 0 0 0 1 0 0 0 0 0 0 0 1 0 3 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 2 0 1 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 2 0 0 1 0 0 0 0 0 0 0 0 0 0 0 23 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202022901 17 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202032001 16 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202032002 24 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202032010 12 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202032014 4 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 1 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 1 0 0 0 0 0 2 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 1 0 0 0 0 1 1 0 0 0 0 0 0 1 0 0 0 2 0 1 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 27 0 0 0 1 0 0 0 0 1 0 0 0 0 0
15202032901 15 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202042013 25 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202042901 11 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0


P12COMUNA Comuna de de nacimiento.

tabla_P12COMUNA <- table(x$clave, x$P12COMUNA, useNA = "no")
#write_xlsx(tabla_P12COMUNA, "tabla_P12COMUNA.xlsx")

a_008 <- head(tabla_P12COMUNA,50)

kbl(a_008) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
98 99 997 1000 1101 1107 1401 1402 1403 1404 1405 2000 2101 2102 2103 2104 2201 2203 2301 2302 3101 3102 3103 3201 3202 3301 3302 3303 3304 4000 4101 4102 4103 4104 4106 4201 4202 4203 4204 4301 4302 4303 4304 4305 5000 5101 5102 5103 5105 5107 5109 5201 5301 5302 5304 5401 5404 5501 5502 5504 5506 5601 5603 5604 5606 5701 5702 5703 5705 5801 5802 5803 5804 6000 6101 6102 6104 6105 6106 6107 6108 6109 6110 6111 6112 6113 6114 6115 6116 6117 6201 6203 6205 6206 6301 6302 6303 6305 6306 6308 6310 7101 7102 7103 7105 7106 7107 7109 7201 7202 7301 7304 7306 7401 7402 7403 7404 7405 7406 7407 7408 8000 8101 8102 8103 8104 8106 8107 8109 8110 8111 8112 8201 8202 8203 8204 8205 8206 8301 8302 8303 8304 8305 8306 8307 8309 8310 8311 8312 8313 9000 9101 9102 9103 9105 9106 9107 9108 9109 9111 9112 9114 9115 9116 9117 9118 9119 9120 9121 9201 9202 9203 9204 9205 9207 9208 9209 9210 9211 10000 10101 10102 10104 10105 10106 10107 10108 10109 10201 10202 10205 10208 10301 10302 10303 10304 10307 10401 10403 10404 11101 11201 12000 12101 12104 12401 13000 13101 13102 13103 13104 13105 13106 13107 13108 13109 13110 13111 13112 13113 13114 13115 13116 13117 13118 13119 13120 13121 13122 13123 13124 13125 13126 13127 13128 13129 13130 13131 13132 13201 13202 13203 13301 13302 13303 13401 13402 13403 13404 13501 13502 13503 13505 13601 13602 13603 13604 13605 14000 14101 14103 14104 14105 14106 14107 14108 14201 14202 14203 14204 15000 15101 15102 15201 15202 16101 16102 16103 16104 16106 16107 16108 16109 16201 16203 16205 16207 16301 16302 16303
15101011001 931 28 22 2 39 0 10 1 0 6 0 0 19 2 0 1 18 1 6 6 3 1 0 2 0 10 0 0 0 2 14 13 1 0 1 1 1 2 1 12 0 1 2 0 0 27 0 0 0 0 15 0 1 0 0 0 0 1 2 0 0 1 1 0 0 2 0 0 0 4 2 0 1 0 5 0 0 0 0 0 1 1 0 0 0 3 0 2 0 1 0 0 0 1 1 0 2 0 0 0 0 6 0 1 0 0 0 1 1 1 0 0 0 2 0 0 1 0 1 2 0 0 12 3 1 0 1 2 1 6 2 0 0 0 1 0 2 0 2 0 0 1 0 0 0 0 0 0 0 0 0 9 0 2 0 0 0 0 0 0 0 1 0 1 0 1 0 3 0 3 0 0 1 0 1 0 0 2 0 0 10 0 0 0 0 0 0 2 1 0 0 0 3 0 1 1 0 0 0 0 1 0 0 2 0 0 1 103 2 1 4 0 0 0 1 3 0 4 0 0 1 0 1 0 0 5 6 1 2 7 5 0 4 2 0 0 9 2 1 4 0 1 0 0 0 5 0 0 2 3 0 0 1 1 0 0 1 0 0 6 0 0 0 0 0 2 0 0 0 4 0 0 0 5 1 14 0 0 0 0 1 0 0 0 0 0 0 1 0 0
15101011002 531 51 19 0 26 0 3 0 0 0 1 0 8 1 0 4 12 0 6 1 2 2 0 0 0 8 0 0 0 0 5 6 1 0 0 2 0 0 0 14 0 2 1 0 2 24 0 0 1 1 10 0 1 0 0 1 0 1 3 1 0 7 0 0 0 4 1 0 0 1 0 0 1 1 4 1 0 0 0 0 0 0 1 0 0 1 0 1 0 0 0 0 0 0 0 0 1 0 1 0 0 1 3 0 0 0 0 1 0 0 0 1 0 0 0 1 2 0 0 0 0 1 5 4 0 0 2 0 0 6 5 0 3 0 0 2 0 0 1 0 0 0 0 0 0 0 2 0 0 0 4 3 0 0 0 0 1 0 0 1 0 0 1 0 1 0 0 2 0 1 0 0 0 0 0 0 0 6 1 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 2 1 2 0 0 0 76 1 2 4 0 1 0 2 3 0 0 0 1 1 1 0 0 1 2 5 3 0 6 0 0 5 2 0 0 9 1 1 5 1 0 1 0 0 5 0 0 0 1 0 0 0 0 1 0 0 3 0 3 1 0 0 0 0 2 1 0 0 0 0 0 0 0 1 1 2 0 0 0 0 0 0 0 0 0 0 1 0 0
15101021001 1165 61 30 2 70 1 4 0 0 4 1 1 44 1 0 6 53 2 16 4 5 0 0 3 0 9 0 1 1 0 10 9 1 1 2 3 2 3 0 24 0 5 0 0 0 46 1 2 0 1 27 1 6 0 1 3 0 10 4 1 1 14 2 1 0 6 0 0 0 13 4 3 2 0 13 0 1 0 1 0 0 0 2 0 0 0 2 0 1 7 1 1 0 0 9 0 4 0 2 2 1 23 3 0 1 1 1 0 6 1 6 2 1 13 1 0 6 1 4 1 0 0 26 8 5 0 4 5 0 14 4 1 1 3 6 0 1 0 23 1 2 3 4 2 1 1 0 0 0 1 1 31 2 6 0 0 1 4 1 1 2 2 0 1 0 1 0 3 0 7 1 3 2 1 0 3 2 1 5 2 12 2 2 0 0 1 1 1 1 7 1 1 23 0 0 0 0 0 0 0 8 2 0 12 0 2 4 255 11 5 4 5 8 1 8 4 13 7 4 1 17 0 6 7 1 33 8 0 10 18 8 3 12 7 7 4 13 3 3 24 1 1 1 0 1 19 1 0 4 3 0 1 2 3 0 0 3 0 1 24 0 0 0 2 0 2 5 2 1 1 1 0 3 4 5 32 5 0 2 2 1 1 1 2 0 1 1 8 0 3
15102012002 18 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15102012003 291 9 7 1 5 0 0 1 1 3 0 0 11 0 0 0 1 0 0 0 0 0 0 0 0 3 0 0 0 1 0 0 0 0 0 0 1 0 1 3 1 0 0 0 0 6 0 0 0 0 1 0 2 1 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 2 1 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 2 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 2 0 0 0 14 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 1 0 0 0 0 1 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 136 0 22 4 1 0 1 0 0 0 0 0 0 1 0 0 0 0 0
15102022007 29 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15102032005 72 1 1 0 2 0 0 1 1 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 12 0 4 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15102032008 12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15102032901 16 0 1 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15102042001 132 0 2 0 0 0 0 3 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 22 0 4 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15102052004 61 0 3 0 10 2 5 0 0 0 0 0 10 1 0 2 1 1 5 0 0 0 0 0 0 3 1 0 0 0 2 7 0 0 1 0 0 0 5 2 1 0 0 0 0 1 2 0 0 0 0 0 0 0 0 2 0 0 1 0 0 1 0 0 0 0 0 0 0 3 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 1 0 0 1 0 0 0 0 1 0 0 0 1 0 0 0 1 0 0 1 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 2 0 0 8 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 2 1 0 1 0 0 2 0 0 1 0 0 0 0 2 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 3 2 1 1 2 0 0 0 0 0 1 0 66 0 1 1 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15102052006 5 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 2 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 14 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201011001 471 31 23 2 16 3 0 3 4 0 3 0 7 1 0 0 4 0 3 1 2 0 0 0 0 3 0 0 0 0 5 3 0 0 2 1 0 1 0 6 1 2 0 0 0 8 0 0 0 1 6 0 4 0 0 0 0 0 3 0 1 3 0 1 0 3 0 1 1 3 1 1 0 0 8 0 1 0 1 0 0 0 0 0 2 1 0 2 0 1 0 0 0 0 1 0 2 1 0 0 0 16 0 1 0 0 0 4 4 0 7 6 0 17 3 0 4 0 2 0 2 0 18 4 1 1 4 0 0 5 4 1 5 0 3 0 2 1 7 0 1 2 9 0 0 2 0 3 1 0 0 14 2 2 1 2 0 2 2 4 0 0 1 1 0 0 1 5 3 4 0 0 0 1 0 1 0 6 6 0 2 1 2 1 0 2 1 1 0 2 0 0 6 2 0 0 1 0 1 1 0 0 0 2 0 0 3 60 5 40 4 5 12 3 10 4 2 5 8 1 4 0 5 24 4 8 4 2 2 15 71 6 41 3 12 3 5 2 0 7 0 0 2 1 0 14 0 0 1 2 0 6 1 2 1 0 1 4 0 11 1 4 0 0 1 4 3 2 1 2 4 294 3 0 62 19 2 0 1 1 0 0 1 0 1 1 1 2 2 0
15201012901 23 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201022002 31 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 0 0 3 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201032006 20 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 2 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0
15201032007 3 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 1 1 0 0 0 0 0 1 0 0 1 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 23 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201032901 19 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 0 0 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201042009 13 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201042021 58 3 2 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201042901 20 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201052001 45 10 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201052003 27 3 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0
15201052012 20 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201052013 9 5 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201052020 15 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201052901 5 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201062005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201062010 35 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201062017 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201062901 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201072901 36 1 2 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201082004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201991999 419 0 1 0 0 0 0 0 0 0 0 0 2 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202012006 51 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202012008 10 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202012012 13 2 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202012015 106 7 0 0 1 0 0 1 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 1 0 0 0 4 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 28 0 1 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0
15202022004 41 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202022005 14 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202022009 59 3 1 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202022011 40 3 2 0 1 0 0 0 1 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 1 0 0 0 0 3 0 0 0 0 0 0 0 0 1 0 0 1 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 1 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 6 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202022901 20 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202032001 15 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202032002 24 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202032010 9 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202032014 2 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 2 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 2 0 0 0 0 0 0 1 0 1 1 0 2 0 1 1 1 1 0 0 0 1 3 0 0 0 0 0 2 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 2 0 0 1 0 0 0 0 0 0 0 2 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 0 0 1 0 0 0 0 0 1 1 0 0 0 0 0 0 1 0 1 0 1 0 1 0 0 0 0 1 0 0 0 1 0 0 1 0 0 1 1 1 0 1 0 0 0 0 0 0 0 1 0 1 0 0 0 1 1 1 0 0 0 0 0 2 0 0 0 1 1 0 1 0 0 0 0 0 0 0 0 0 0 0
15202032901 16 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202042013 22 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202042901 15 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0

P10PAIS País de residencia habitual.

tabla_P10PAIS <- table(x$clave, x$P10PAIS, useNA = "no")

#write_xlsx(tabla_P10PAIS, "tabla_P10PAIS.xlsx")

a_010 <- head(tabla_P10PAIS,50)

kbl(a_010) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
29 32 36 56 68 124 170 208 250 276 554 604 724 756 840 997 998 999
15101011001 0 6 0 0 8 0 4 0 0 0 2 56 1 0 2 1 1448 17
15101011002 0 0 0 0 2 0 0 4 2 0 0 5 0 1 1 0 967 19
15101021001 0 0 0 2 1 0 0 0 0 0 0 5 1 0 0 0 2716 25
15102012002 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 25 0
15102012003 0 0 0 2 8 1 0 0 3 0 0 2 0 0 0 0 541 8
15102022007 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 39 0
15102032005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 112 0
15102032008 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 14 0
15102032901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30 0
15102042001 0 0 0 0 2 0 0 0 0 0 0 2 0 0 0 0 176 1
15102052004 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 255 2
15102052006 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30 0
15201011001 0 0 1 0 1 0 0 0 0 0 0 2 2 0 0 0 1697 13
15201012901 0 0 0 0 0 0 0 0 8 0 0 0 0 1 0 0 28 0
15201022002 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 52 0
15201032006 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 31 0
15201032007 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 52 0
15201032901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 35 0
15201042009 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 15 0
15201042021 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 72 1
15201042901 0 0 0 0 1 0 0 0 0 0 0 6 0 0 0 0 14 1
15201052001 0 0 0 0 2 0 0 0 0 0 0 2 0 0 0 0 52 7
15201052003 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 50 2
15201052012 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 25 0
15201052013 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 12 5
15201052020 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 18 0
15201052901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 1
15201062005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 0
15201062010 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 40 0
15201062017 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0
15201062901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 0
15201072901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 52 1
15201082004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 0
15201991999 1 0 0 0 390 0 0 0 0 2 0 1 0 0 1 1 39 1
15202012006 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 55 0
15202012008 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 11 1
15202012012 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 17 2
15202012015 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 163 4
15202022004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 42 0
15202022005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 15 0
15202022009 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 65 3
15202022011 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 87 0
15202022901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 18 2
15202032001 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 21 1
15202032002 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27 0
15202032010 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 15 0
15202032014 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 69 0
15202032901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 16 0
15202042013 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30 0
15202042901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 15 1


P11PAIS País de residencia hace 5 años.

tabla_P11PAIS <- table(x$clave, x$P11PAIS, useNA = "no")
#write_xlsx(tabla_P11PAIS, "tabla_P11PAIS.xlsx")

a_011 <- head(tabla_P11PAIS,50)

kbl(a_011) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
2 5 36 51 56 76 124 150 192 208 214 250 276 332 392 484 528 554 591 643 724 752 756 826 840 862 997 998 999
15101011001 0 0 0 2 0 0 1 0 0 0 3 0 0 0 0 2 0 2 1 0 8 0 0 0 1 2 2 1485 36
15101011002 0 0 0 0 0 0 0 0 0 2 0 2 0 0 0 0 0 0 0 0 1 0 0 1 2 0 0 946 47
15101021001 1 0 3 0 4 1 1 1 2 0 1 1 1 0 0 0 0 0 0 1 12 1 0 1 0 6 1 2652 60
15102012002 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 22 3
15102012003 0 0 0 0 2 0 1 0 0 0 0 3 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 543 15
15102022007 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 39 0
15102032005 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 108 3
15102032008 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 13 1
15102032901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30 0
15102042001 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 180 0
15102052004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 258 1
15102052006 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30 0
15201011001 0 0 1 0 0 0 0 0 0 0 0 0 1 1 0 1 1 0 0 1 1 0 0 0 0 0 0 1682 27
15201012901 0 0 0 0 0 0 0 0 0 0 0 8 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 28 0
15201022002 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 51 1
15201032006 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 31 0
15201032007 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 52 0
15201032901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 31 4
15201042009 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 15 0
15201042021 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 67 8
15201042901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 21 1
15201052001 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 56 7
15201052003 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 50 3
15201052012 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 25 0
15201052013 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 11 6
15201052020 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 18 0
15201052901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 1
15201062005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 0
15201062010 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 40 0
15201062017 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0
15201062901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 0
15201072901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 52 1
15201082004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 0
15201991999 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 0 0 0 1 0 0 431 1
15202012006 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 55 1
15202012008 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 11 1
15202012012 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 17 2
15202012015 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 164 5
15202022004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 42 0
15202022005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 15 0
15202022009 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 62 6
15202022011 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 87 0
15202022901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 17 3
15202032001 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 21 1
15202032002 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 27 0
15202032010 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 15 0
15202032014 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 69 0
15202032901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 16 0
15202042013 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29 1
15202042901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 14 2


P12PAIS País de nacimiento.

tabla_P12PAIS <- table(x$clave, x$P12PAIS, useNA = "no")
#write_xlsx(tabla_P12PAIS, "tabla_P12PAIS.xlsx")

a_012 <- head(tabla_P12PAIS,50)

kbl(a_012) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
5 36 51 56 76 124 156 191 192 208 214 250 276 356 380 392 410 422 484 528 554 600 608 643 724 756 760 826 840 858 862 997 998 999
15101011001 0 0 1 0 1 1 3 0 1 0 4 0 1 3 3 0 0 0 1 0 1 1 1 0 3 0 0 1 1 1 2 2 1485 28
15101011002 0 0 0 0 0 0 3 0 2 3 0 1 1 0 2 0 1 1 0 0 0 0 0 0 3 0 0 0 1 0 0 0 932 51
15101021001 0 1 0 3 4 0 0 0 1 0 1 0 0 0 2 0 0 0 0 0 0 2 0 1 8 1 1 1 2 0 3 0 2658 61
15102012002 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 25 0
15102012003 0 0 0 2 0 1 0 1 0 0 0 3 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 548 9
15102022007 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 39 0
15102032005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 111 1
15102032008 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 14 0
15102032901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30 0
15102042001 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 181 0
15102052004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 259 0
15102052006 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30 0
15201011001 0 1 0 0 0 0 0 0 0 0 0 0 1 0 2 0 0 0 2 1 0 0 0 0 1 0 0 0 1 0 1 0 1675 31
15201012901 0 0 0 0 0 0 0 0 0 0 0 8 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 26 2
15201022002 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 51 1
15201032006 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 31 0
15201032007 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 51 0
15201032901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 35 0
15201042009 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 14 1
15201042021 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 71 3
15201042901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 21 1
15201052001 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 53 10
15201052003 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 50 3
15201052012 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 25 0
15201052013 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 12 5
15201052020 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 18 0
15201052901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 1
15201062005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 0
15201062010 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 40 0
15201062017 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0
15201062901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 0
15201072901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 52 1
15201082004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 0
15201991999 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 4 429 0
15202012006 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 56 0
15202012008 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 11 1
15202012012 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 17 2
15202012015 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 162 7
15202022004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 42 0
15202022005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 15 0
15202022009 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 65 3
15202022011 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 83 3
15202022901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 20 0
15202032001 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 21 1
15202032002 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 26 1
15202032010 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 15 0
15202032014 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 69 0
15202032901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 16 0
15202042013 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29 1
15202042901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 15 1


P11 Residencia hace 5 años.

tabla_P11 <- table(x$clave, x$P11, useNA = "no")

colnames(tabla_P11) <- c("Aún no nacía","En esta comuna","En otra comuna","Perú","Argentina","Bolivia","Ecuador","Colombia","Otro","Missing")

#write_xlsx(tabla_P11, "tabla_P11.xlsx")

a_111 <- head(tabla_P11,50)

kbl(a_111) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
Aún no nacía En esta comuna En otra comuna Perú Argentina Bolivia Ecuador Colombia Otro Missing
15101011001 58 926 328 98 7 51 3 14 24 36
15101011002 39 652 209 18 1 15 0 12 8 47
15101021001 144 1402 982 50 6 38 5 25 38 60
15102012002 3 12 5 2 0 0 0 0 0 3
15102012003 24 293 196 14 0 16 0 0 7 15
15102022007 2 28 9 0 0 0 0 0 0 0
15102032005 5 79 23 0 0 1 0 0 1 3
15102032008 1 10 2 0 0 0 0 0 0 1
15102032901 0 19 11 0 0 0 0 0 0 0
15102042001 14 97 39 19 0 11 0 0 1 0
15102052004 12 122 112 9 0 3 0 0 0 1
15102052006 0 4 26 0 0 0 0 0 0 0
15201011001 64 531 1027 17 0 43 0 0 7 27
15201012901 4 17 6 1 0 0 0 0 9 0
15201022002 1 28 21 0 0 1 0 0 0 1
15201032006 2 8 14 0 0 7 0 0 0 0
15201032007 0 2 50 0 0 0 0 0 0 0
15201032901 1 21 8 1 0 0 0 0 0 4
15201042009 0 15 0 0 0 0 0 0 0 0
15201042021 1 44 11 11 0 0 0 0 0 8
15201042901 0 10 2 8 0 1 0 0 0 1
15201052001 1 44 3 2 0 6 0 0 0 7
15201052003 0 30 19 1 0 0 0 0 0 3
15201052012 0 18 6 0 0 1 0 0 0 0
15201052013 0 10 1 0 0 0 0 0 0 6
15201052020 0 15 3 0 0 0 0 0 0 0
15201052901 0 6 0 0 0 0 0 0 0 1
15201062005 0 0 4 0 0 0 0 0 0 0
15201062010 0 37 3 0 0 0 0 0 0 0
15201062017 0 1 1 0 0 0 0 0 0 0
15201062901 0 4 1 0 0 0 0 0 0 0
15201072901 2 35 11 0 0 4 0 0 0 1
15201082004 0 1 6 0 0 0 0 0 0 0
15201991999 4 5 31 3 0 388 0 0 4 1
15202012006 4 42 6 1 0 2 0 0 0 1
15202012008 0 11 0 0 0 0 0 0 0 1
15202012012 2 11 0 1 0 3 0 0 0 2
15202012015 8 85 59 0 0 12 0 0 0 5
15202022004 3 38 1 0 0 0 0 0 0 0
15202022005 1 14 0 0 0 0 0 0 0 0
15202022009 5 52 4 0 0 1 0 0 0 6
15202022011 3 29 55 0 0 0 0 0 0 0
15202022901 1 16 0 0 0 0 0 0 0 3
15202032001 3 13 5 0 0 0 0 0 0 1
15202032002 4 16 3 2 0 2 0 0 0 0
15202032010 2 10 3 0 0 0 0 0 0 0
15202032014 0 4 65 0 0 0 0 0 0 0
15202032901 0 15 1 0 0 0 0 0 0 0
15202042013 2 22 4 1 0 0 0 0 0 1
15202042901 3 5 3 0 0 3 0 0 0 2

P12 Lugar de nacimiento

tabla_P12 <- table(x$clave, x$P12, useNA = "no")


colnames(tabla_P12) <- c("En esta comuna","En otra comuna","Perú","Argentina","Bolivia","Ecuador","Colombia","Otro","Missing")




#write_xlsx(tabla_P12, "tabla_P12.xlsx")

a_112 <- head(tabla_P12,50)

kbl(a_112) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
En esta comuna En otra comuna Perú Argentina Bolivia Ecuador Colombia Otro Missing
15101011001 594 586 187 7 88 2 21 32 28
15101011002 421 419 40 4 31 2 15 18 51
15101021001 885 1524 108 15 78 12 36 31 61
15102012002 13 7 3 0 2 0 0 0 0
15102012003 234 265 21 0 27 1 0 8 9
15102022007 29 10 0 0 0 0 0 0 0
15102032005 66 39 0 1 5 0 0 0 1
15102032008 12 2 0 0 0 0 0 0 0
15102032901 16 14 0 0 0 0 0 0 0
15102042001 85 49 20 1 26 0 0 0 0
15102052004 36 198 19 0 5 0 1 0 0
15102052006 2 25 2 0 1 0 0 0 0
15201011001 297 1214 29 4 131 0 0 10 31
15201012901 10 12 4 0 0 0 0 9 2
15201022002 27 20 0 0 4 0 0 0 1
15201032006 3 11 1 0 16 0 0 0 0
15201032007 1 49 0 0 1 0 0 1 0
15201032901 12 16 1 0 6 0 0 0 0
15201042009 11 1 1 0 1 0 0 0 1
15201042021 43 14 12 0 2 0 0 1 3
15201042901 10 1 8 1 1 0 0 0 1
15201052001 32 8 3 0 10 0 0 0 10
15201052003 23 23 1 0 3 0 0 0 3
15201052012 16 5 1 0 3 0 0 0 0
15201052013 8 3 0 0 1 0 0 0 5
15201052020 13 3 1 0 1 0 0 0 0
15201052901 5 1 0 0 0 0 0 0 1
15201062005 0 4 0 0 0 0 0 0 0
15201062010 31 5 0 0 4 0 0 0 0
15201062017 1 1 0 0 0 0 0 0 0
15201062901 4 0 0 0 1 0 0 0 0
15201072901 28 16 0 0 8 0 0 0 1
15201082004 0 7 0 0 0 0 0 0 0
15201991999 2 17 5 1 402 1 1 7 0
15202012006 43 5 3 0 5 0 0 0 0
15202012008 7 1 3 0 0 0 0 0 1
15202012012 7 4 5 0 1 0 0 0 2
15202012015 85 56 0 0 21 0 0 0 7
15202022004 40 1 0 0 1 0 0 0 0
15202022005 13 1 0 0 1 0 0 0 0
15202022009 48 6 1 0 10 0 0 0 3
15202022011 29 44 0 0 10 0 0 1 3
15202022901 19 0 0 0 1 0 0 0 0
15202032001 13 6 2 0 0 0 0 0 1
15202032002 19 2 2 0 3 0 0 0 1
15202032010 6 6 0 0 3 0 0 0 0
15202032014 1 67 0 1 0 0 0 0 0
15202032901 16 0 0 0 0 0 0 0 0
15202042013 19 7 2 0 1 0 0 0 1
15202042901 8 0 0 0 7 0 0 0 1

P12A_LLEGADA Año de llegada al país

tabla_P12A_LLEGADA <- table(x$clave, x$P12A_LLEGADA, useNA = "no")
#write_xlsx(tabla_P12A_LLEGADA, "tabla_P12A_LLEGADA.xlsx")

a_12a <- head(tabla_P12A_LLEGADA,50)

kbl(a_12a) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
1950 1952 1953 1954 1955 1956 1957 1958 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1985 1986 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 9998 9999
15101011001 2 1 0 1 0 0 1 2 1 0 0 1 0 0 0 0 2 1 0 0 1 1 0 2 0 0 0 0 1 0 1 1 0 0 0 0 1 4 5 0 0 1 1 0 6 2 2 5 1 3 0 1 5 4 7 5 8 17 13 18 11 12 24 8 73 1180 109
15101011002 1 0 0 0 1 3 0 0 1 2 0 0 1 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 1 1 1 0 0 1 2 2 1 2 0 0 1 0 0 1 0 8 0 0 3 3 0 0 0 1 0 1 2 3 2 4 4 11 10 840 84
15101021001 0 0 0 0 1 2 1 1 2 0 0 0 0 0 0 1 0 0 1 3 0 0 1 0 1 0 0 1 0 0 1 0 1 0 0 0 0 4 2 1 2 1 1 0 0 2 1 5 2 1 9 2 6 6 7 3 5 6 5 20 12 18 28 31 34 2409 110
15102012002 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0 3 20 0
15102012003 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 1 0 0 0 1 4 2 2 1 0 0 3 1 4 2 1 9 0 11 499 19
15102022007 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 39 0
15102032005 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 105 2
15102032008 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 14 0
15102032901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30 0
15102042001 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 3 0 2 1 8 10 134 16
15102052004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 1 0 0 2 1 2 0 3 0 3 1 1 1 5 0 234 3
15102052006 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 27 0
15201011001 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1 0 0 0 1 0 0 0 0 0 1 0 0 0 3 2 5 2 1 1 2 3 5 6 9 8 1 11 18 13 8 14 6 13 1511 67
15201012901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 1 22 12
15201022002 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 47 2
15201032006 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 2 0 0 0 0 0 2 1 1 0 1 1 0 0 0 1 4 1 14 1
15201032007 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 50 0
15201032901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 4 0 0 0 0 0 1 0 28 0
15201042009 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 12 2
15201042021 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 2 2 1 57 10
15201042901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 7 11 1
15201052001 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 1 0 2 1 0 0 3 40 14
15201052003 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 46 4
15201052012 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 21 3
15201052013 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 11 5
15201052020 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 16 1
15201052901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 1
15201062005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 0
15201062010 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 36 4
15201062017 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0
15201062901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 1
15201072901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 44 9
15201082004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 0
15201991999 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 2 2 1 0 0 7 2 1 1 2 0 0 2 4 2 2 2 3 4 4 4 7 3 8 5 5 4 11 7 7 14 13 7 15 15 15 8 21 19 27 38 19 122
15202012006 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 3 0 0 48 2
15202012008 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 0 0 0 0 0 0 0 0 0 8 1
15202012012 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 11 4
15202012015 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 1 0 5 1 1 0 3 0 4 1 141 10
15202022004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 41 0
15202022005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 14 0
15202022009 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 2 0 4 0 0 1 0 0 0 0 54 4
15202022011 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 73 10
15202022901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 19 0
15202032001 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 19 1
15202032002 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 2 2 0 21 1
15202032010 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 12 0
15202032014 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 68 1
15202032901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 16 0
15202042013 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 26 1
15202042901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 8 1

P12A_TRAMO Período de llegada al País

tabla_P12A_TRAMO <- table(x$clave, x$P12A_TRAMO, useNA = "no")

colnames(tabla_P12A_TRAMO) <- c("Entre 2010 y 2017","Entre 2000 y 2009","Entre 1990 y 1999","Antes de 1990","No aplica", "Missing")

#write_xlsx(tabla_P12A_TRAMO, "tabla_P12A_TRAMO.xlsx")

a_p12at <- head(tabla_P12A_TRAMO,50)

kbl(a_p12at) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
Entre 2010 y 2017 Entre 2000 y 2009 Entre 1990 y 1999 Antes de 1990 No aplica Missing
15101011001 202 43 24 32 1180 64
15101011002 51 17 9 18 840 66
15101021001 168 55 14 27 2409 77
15102012002 3 2 0 0 20 0
15102012003 38 10 4 4 499 10
15102022007 0 0 0 0 39 0
15102032005 0 1 1 4 105 1
15102032008 0 0 0 0 14 0
15102032901 0 0 0 0 30 0
15102042001 26 0 3 5 134 13
15102052004 15 8 1 0 234 1
15102052006 1 2 0 0 27 0
15201011001 95 52 8 10 1511 40
15201012901 4 0 0 0 22 11
15201022002 1 1 1 1 47 1
15201032006 8 6 2 1 14 0
15201032007 0 1 0 1 50 0
15201032901 5 1 0 1 28 0
15201042009 1 0 1 0 12 1
15201042021 6 1 1 1 57 9
15201042901 9 0 1 0 11 1
15201052001 7 4 0 0 40 12
15201052003 1 0 2 1 46 3
15201052012 1 1 0 2 21 0
15201052013 0 1 0 0 11 5
15201052020 0 0 0 2 16 0
15201052901 0 0 0 0 6 1
15201062005 0 0 0 0 4 0
15201062010 0 0 3 1 36 0
15201062017 0 0 0 0 2 0
15201062901 0 0 0 0 4 1
15201072901 2 4 1 1 44 1
15201082004 0 0 0 0 7 0
15201991999 201 104 50 32 19 30
15202012006 4 4 0 0 48 0
15202012008 0 3 0 0 8 1
15202012012 1 1 1 1 11 4
15202012015 15 3 1 0 141 9
15202022004 0 0 1 0 41 0
15202022005 0 0 0 1 14 0
15202022009 5 2 2 2 54 3
15202022011 3 6 1 1 73 3
15202022901 0 1 0 0 19 0
15202032001 1 1 0 0 19 1
15202032002 5 0 0 0 21 1
15202032010 3 0 0 0 12 0
15202032014 0 0 0 1 68 0
15202032901 0 0 0 0 16 0
15202042013 2 0 0 1 26 1
15202042901 6 0 0 1 8 1

Educacion

P13: ¿Asiste actualmente a la educación formal?

tabla_P13 <- table(x$clave, x$P13, useNA = "no")

colnames(tabla_P13) <- c("Sí","No asiste actualmente","Nunca asistió","Missing")


#write_xlsx(tabla_P10PAIS, "tabla_P10PAIS.xlsx")

a_013 <- head(tabla_P13,50)

kbl(a_013) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
No asiste actualmente Nunca asistió Missing
15101011001 317 1158 33 37
15101011002 198 707 21 75
15101021001 656 1954 78 62
15102012002 4 10 8 3
15102012003 107 424 22 12
15102022007 11 24 4 0
15102032005 24 71 12 5
15102032008 1 12 1 0
15102032901 3 26 1 0
15102042001 32 134 14 1
15102052004 54 191 10 4
15102052006 2 28 0 0
15201011001 257 1377 50 32
15201012901 4 25 8 0
15201022002 5 46 1 0
15201032006 1 23 7 0
15201032007 10 42 0 0
15201032901 9 22 3 1
15201042009 3 12 0 0
15201042021 11 53 9 2
15201042901 0 13 9 0
15201052001 8 44 3 8
15201052003 4 40 7 2
15201052012 4 19 2 0
15201052013 6 5 1 5
15201052020 0 15 3 0
15201052901 0 5 2 0
15201062005 0 4 0 0
15201062010 3 29 8 0
15201062017 0 2 0 0
15201062901 0 4 1 0
15201072901 16 32 3 2
15201082004 0 7 0 0
15201991999 22 406 5 3
15202012006 17 30 9 0
15202012008 1 9 1 1
15202012012 3 7 6 3
15202012015 31 116 11 11
15202022004 15 20 7 0
15202022005 2 9 3 1
15202022009 11 40 13 4
15202022011 8 72 7 0
15202022901 1 10 9 0
15202032001 2 10 9 1
15202032002 6 16 5 0
15202032010 3 9 3 0
15202032014 5 59 1 4
15202032901 0 9 7 0
15202042013 4 19 6 1
15202042901 0 10 5 1

P14 Curso o año más alto aprobado

tabla_P14 <- table(x$clave, x$P14, useNA = "no")

colnames(tabla_P14) <- c( "0","1","2","3","4","5","6","7","8","No aplica","Missing")
#write_xlsx(tabla_P10PAIS, "tabla_P10PAIS.xlsx")

a_014 <- head(tabla_P14,50)

kbl(a_014) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
0 1 2 3 4 5 6 7 8 No aplica Missing
15101011001 58 87 209 173 509 183 88 25 98 33 82
15101011002 38 58 128 96 331 130 72 20 46 21 61
15101021001 128 143 445 239 1044 266 151 47 131 78 78
15102012002 1 1 2 0 2 4 3 0 2 8 2
15102012003 28 32 62 60 185 64 44 16 30 22 22
15102022007 0 4 3 7 15 0 2 0 4 4 0
15102032005 4 5 13 18 31 11 9 1 8 12 0
15102032008 0 0 2 1 5 0 0 0 0 1 5
15102032901 0 4 2 4 10 3 2 1 3 1 0
15102042001 13 12 21 15 49 15 17 4 20 14 1
15102052004 11 20 32 35 73 24 14 7 28 10 5
15102052006 0 4 2 2 16 1 3 1 1 0 0
15201011001 60 98 416 126 636 78 47 38 134 50 33
15201012901 1 3 2 2 11 5 0 0 4 8 1
15201022002 0 2 14 6 15 3 6 0 5 1 0
15201032006 0 7 1 2 11 1 1 0 1 7 0
15201032007 0 0 4 13 32 0 1 1 1 0 0
15201032901 0 3 4 3 10 3 6 1 2 3 0
15201042009 0 1 0 1 5 2 1 0 5 0 0
15201042021 1 1 9 8 20 13 5 1 3 9 5
15201042901 0 2 3 1 2 0 2 1 1 9 1
15201052001 3 9 3 4 12 7 6 2 4 3 10
15201052003 0 1 5 4 20 2 6 2 4 7 2
15201052012 0 2 3 4 7 0 5 1 0 2 1
15201052013 0 1 1 0 5 1 1 0 2 1 5
15201052020 0 2 2 3 3 1 1 0 3 3 0
15201052901 0 2 0 0 1 0 1 0 0 2 1
15201062005 0 0 0 0 4 0 0 0 0 0 0
15201062010 0 2 6 4 7 3 9 0 1 8 0
15201062017 0 0 0 1 1 0 0 0 0 0 0
15201062901 0 1 2 0 1 0 0 0 0 1 0
15201072901 6 3 8 5 12 3 3 1 5 3 4
15201082004 0 3 0 0 3 0 0 0 1 0 0
15201991999 1 32 50 67 163 61 28 2 20 5 7
15202012006 6 5 9 2 6 3 6 3 7 9 0
15202012008 0 0 2 3 3 1 0 0 1 1 1
15202012012 1 0 0 0 3 0 0 2 4 6 3
15202012015 9 10 17 10 56 24 12 1 13 11 6
15202022004 5 4 5 3 3 3 3 2 7 7 0
15202022005 0 3 0 1 4 0 0 1 2 3 1
15202022009 2 2 12 7 17 1 4 1 6 13 3
15202022011 2 5 32 6 25 4 0 2 1 7 3
15202022901 0 0 3 1 1 0 4 0 2 9 0
15202032001 1 0 5 1 1 1 2 1 0 9 1
15202032002 4 1 3 1 4 5 2 0 2 5 0
15202032010 1 2 0 2 2 1 1 1 2 3 0
15202032014 0 1 44 0 22 0 0 1 0 1 0
15202032901 0 1 3 3 0 0 0 0 2 7 0
15202042013 2 1 8 4 3 0 0 0 4 6 2
15202042901 0 1 1 1 2 2 0 0 3 5 1

P15 Nivel del curso más alto aprobado

tabla_P15 <- table(x$clave, x$P15, useNA = "no")

colnames(tabla_P15) <- c( 

"Sala cuna o jardín infantil","Prekínder","Kínder","Especial o diferencial","Educación básica","Primaria o preparatorio (sistema antiguo)","Científico-humanista","Técnica profesional","Humanidades (sistema antiguo)","Técnica comercial, industrial/normalista (sistema
antiguo)","Técnico superior (1-3 años)","Profesional (4 o más años)","Magíster","Doctorado", "No aplica" , "Missing")


#write_xlsx(tabla_P15, "tabla_P15.xlsx")

a_015 <- head(tabla_P15,50)

kbl(a_015) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
Sala cuna o jardín infantil Prekínder Kínder Especial o diferencial Educación básica Primaria o preparatorio (sistema antiguo) Científico-humanista Técnica profesional Humanidades (sistema antiguo) Técnica comercial, industrial/normalista (sistema antiguo) Técnico superior (1-3 años) Profesional (4 o más años) Magíster Doctorado No aplica Missing
15101011001 23 13 21 4 248 47 354 200 60 33 149 298 16 4 33 42
15101011002 16 10 12 1 123 24 254 126 44 20 106 205 7 2 21 30
15101021001 57 24 47 6 378 49 823 383 60 35 221 499 36 7 78 47
15102012002 1 0 0 0 12 0 1 0 0 1 0 2 0 0 8 0
15102012003 15 4 9 1 142 27 100 92 13 17 29 77 6 1 22 10
15102022007 0 0 0 0 18 0 7 6 0 0 0 4 0 0 4 0
15102032005 0 2 2 0 30 3 19 18 0 0 11 15 0 0 12 0
15102032008 0 0 0 1 5 1 2 4 0 0 0 0 0 0 1 0
15102032901 0 0 0 0 8 1 11 2 3 2 1 1 0 0 1 0
15102042001 6 2 4 2 62 6 37 23 2 0 9 12 1 0 14 1
15102052004 3 2 6 0 72 7 53 40 2 1 20 39 1 0 10 3
15102052006 0 0 0 0 1 1 9 5 0 1 5 8 0 0 0 0
15201011001 38 7 15 1 312 10 469 353 4 2 238 171 17 1 50 28
15201012901 1 0 0 0 9 0 5 1 0 0 2 6 1 3 8 1
15201022002 0 0 0 0 27 0 5 6 0 0 11 2 0 0 1 0
15201032006 0 0 0 0 4 0 7 7 0 0 5 1 0 0 7 0
15201032007 0 0 0 0 0 0 10 15 0 0 13 13 1 0 0 0
15201032901 0 0 0 0 20 0 4 6 1 0 0 1 0 0 3 0
15201042009 0 0 0 0 9 0 4 2 0 0 0 0 0 0 0 0
15201042021 1 0 0 0 22 3 9 15 0 1 3 8 0 0 9 4
15201042901 0 0 0 0 5 1 4 1 1 0 0 0 0 0 9 1
15201052001 3 0 0 0 25 1 11 6 0 0 1 3 0 0 3 10
15201052003 0 0 0 0 15 3 10 7 0 2 2 5 0 0 7 2
15201052012 0 0 0 0 10 0 7 4 0 0 0 1 0 0 2 1
15201052013 0 0 0 0 8 0 2 0 0 0 0 1 0 0 1 5
15201052020 0 0 0 0 9 1 2 2 0 0 0 1 0 0 3 0
15201052901 0 0 0 0 4 0 0 0 0 0 0 0 0 0 2 1
15201062005 0 0 0 0 0 0 1 2 0 0 0 1 0 0 0 0
15201062010 0 0 0 0 8 16 3 4 0 0 0 1 0 0 8 0
15201062017 0 0 0 0 0 0 2 0 0 0 0 0 0 0 0 0
15201062901 0 0 0 0 3 0 1 0 0 0 0 0 0 0 1 0
15201072901 2 2 2 0 25 0 6 6 0 0 3 2 1 0 3 1
15201082004 0 0 0 0 1 0 3 0 0 0 3 0 0 0 0 0
15201991999 0 1 0 0 116 1 170 67 2 0 21 48 1 0 5 4
15202012006 3 0 3 0 33 1 4 3 0 0 0 0 0 0 9 0
15202012008 0 0 0 0 9 0 1 0 0 0 0 0 0 0 1 1
15202012012 0 0 1 0 8 0 1 0 0 0 0 0 0 0 6 3
15202012015 6 0 3 0 46 2 27 24 1 0 13 29 3 0 11 4
15202022004 2 0 3 0 24 0 2 3 0 0 0 0 1 0 7 0
15202022005 0 0 0 1 6 0 1 2 0 0 0 1 0 0 3 1
15202022009 2 0 0 0 31 0 12 6 0 0 0 1 0 0 13 3
15202022011 1 0 1 0 13 0 15 21 0 0 24 5 0 0 7 0
15202022901 0 0 0 0 9 0 1 1 0 0 0 0 0 0 9 0
15202032001 0 0 1 0 4 0 0 1 0 0 5 1 0 0 9 1
15202032002 3 1 0 0 11 0 3 1 0 0 1 2 0 0 5 0
15202032010 0 0 1 0 8 0 1 0 1 0 0 1 0 0 3 0
15202032014 0 0 0 0 0 0 18 10 0 0 37 3 0 0 1 0
15202032901 0 0 0 0 8 1 0 0 0 0 0 0 0 0 7 0
15202042013 0 0 2 0 10 0 2 2 0 0 7 0 0 0 6 1
15202042901 0 0 0 0 8 1 1 0 0 0 0 0 0 0 5 1

P15A Completó el nivel especificado

tabla_P15A <- table(x$clave, x$P15A, useNA = "no")

colnames(tabla_P15A) <- c( 
"Sí","No","No aplica","Missing")
#write_xlsx(tabla_P15A, "tabla_P15A.xlsx")

a_015 <- head(tabla_P15A,50)

kbl(a_015) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
No No aplica Missing
15101011001 916 536 33 60
15101011002 615 319 21 46
15101021001 1720 879 78 73
15102012002 4 13 8 0
15102012003 284 242 22 17
15102022007 15 20 4 0
15102032005 57 43 12 0
15102032008 6 7 1 0
15102032901 16 13 1 0
15102042001 92 72 14 3
15102052004 139 105 10 5
15102052006 22 8 0 0
15201011001 1034 570 50 62
15201012901 21 7 8 1
15201022002 27 24 1 0
15201032006 18 6 7 0
15201032007 46 6 0 0
15201032901 11 21 3 0
15201042009 10 5 0 0
15201042021 29 31 9 6
15201042901 4 8 9 1
15201052001 17 31 3 12
15201052003 27 16 7 3
15201052012 8 14 2 1
15201052013 5 6 1 5
15201052020 6 9 3 0
15201052901 0 4 2 1
15201062005 4 0 0 0
15201062010 11 21 8 0
15201062017 1 1 0 0
15201062901 0 4 1 0
15201072901 25 24 3 1
15201082004 7 0 0 0
15201991999 210 216 5 5
15202012006 14 33 9 0
15202012008 2 8 1 1
15202012012 6 4 6 3
15202012015 101 51 11 6
15202022004 13 22 7 0
15202022005 4 7 3 1
15202022009 17 35 13 3
15202022011 52 27 7 1
15202022901 3 8 9 0
15202032001 7 5 9 1
15202032002 10 12 5 0
15202032010 5 7 3 0
15202032014 59 8 1 1
15202032901 2 7 7 0
15202042013 8 7 6 9
15202042901 3 7 5 1

Etnia

P16 Se considera perteneciente a un pueblo indígena u originario

tabla_P16 <- table(x$clave, x$P16, useNA = "no")

colnames(tabla_P16) <- c( 
"Sí","No","Missing")


#write_xlsx(tabla_P16, "tabla_P16.xlsx")

a_P16 <- head(tabla_P16,50)

kbl(a_P16) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
No Missing
15101011001 372 1137 36
15101011002 171 768 62
15101021001 532 2143 75
15102012002 23 2 0
15102012003 465 95 5
15102022007 29 10 0
15102032005 96 16 0
15102032008 12 2 0
15102032901 28 2 0
15102042001 137 43 1
15102052004 85 170 4
15102052006 13 17 0
15201011001 802 881 33
15201012901 20 17 0
15201022002 35 17 0
15201032006 26 5 0
15201032007 13 39 0
15201032901 35 0 0
15201042009 15 0 0
15201042021 66 7 2
15201042901 18 3 1
15201052001 53 0 10
15201052003 31 20 2
15201052012 21 4 0
15201052013 11 1 5
15201052020 17 1 0
15201052901 6 0 1
15201062005 1 3 0
15201062010 40 0 0
15201062017 1 1 0
15201062901 5 0 0
15201072901 41 11 1
15201082004 1 6 0
15201991999 346 87 3
15202012006 56 0 0
15202012008 11 0 1
15202012012 17 0 2
15202012015 131 34 4
15202022004 42 0 0
15202022005 15 0 0
15202022009 62 2 4
15202022011 38 49 0
15202022901 20 0 0
15202032001 16 5 1
15202032002 27 0 0
15202032010 15 0 0
15202032014 6 63 0
15202032901 16 0 0
15202042013 22 8 0
15202042901 13 2 1

P16A Pueblo indígena u originario listado

tabla_P16A <- table(x$clave, x$P16A, useNA = "no")

colnames(tabla_P16A) <- c( 
"Mapuche","Aymara","Rapa Nui","Lican Antai","Quechua","Colla","Diaguita","Kawésqar","Yagán o Yamana","Otro")

#write_xlsx(tabla_P16A, "tabla_P16A.xlsx")

a_P16A <- head(tabla_P16A,50)

kbl(a_P16A) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
Mapuche Aymara Rapa Nui Lican Antai Quechua Colla Diaguita Kawésqar Yagán o Yamana Otro
15101011001 49 239 1 3 29 1 6 44 1137 36
15101011002 27 102 1 2 8 0 5 26 768 62
15101021001 170 261 0 9 28 0 14 50 2143 75
15102012002 0 23 0 0 0 0 0 0 2 0
15102012003 11 419 0 3 11 0 4 17 95 5
15102022007 0 29 0 0 0 0 0 0 10 0
15102032005 0 95 0 0 1 0 0 0 16 0
15102032008 0 12 0 0 0 0 0 0 2 0
15102032901 0 24 0 0 2 0 1 1 2 0
15102042001 6 128 0 0 3 0 0 0 43 1
15102052004 16 48 0 0 4 0 3 14 170 4
15102052006 1 12 0 0 0 0 0 0 17 0
15201011001 113 668 0 1 12 1 3 4 881 33
15201012901 0 20 0 0 0 0 0 0 17 0
15201022002 3 32 0 0 0 0 0 0 17 0
15201032006 1 25 0 0 0 0 0 0 5 0
15201032007 0 13 0 0 0 0 0 0 39 0
15201032901 0 35 0 0 0 0 0 0 0 0
15201042009 0 15 0 0 0 0 0 0 0 0
15201042021 0 63 0 0 3 0 0 0 7 2
15201042901 0 16 0 0 2 0 0 0 3 1
15201052001 0 48 0 0 4 0 0 1 0 10
15201052003 0 30 0 0 0 0 0 1 20 2
15201052012 0 21 0 0 0 0 0 0 4 0
15201052013 0 11 0 0 0 0 0 0 1 5
15201052020 0 15 0 0 1 0 0 1 1 0
15201052901 0 6 0 0 0 0 0 0 0 1
15201062005 0 1 0 0 0 0 0 0 3 0
15201062010 0 40 0 0 0 0 0 0 0 0
15201062017 0 1 0 0 0 0 0 0 1 0
15201062901 0 5 0 0 0 0 0 0 0 0
15201072901 0 33 0 0 0 0 0 8 11 1
15201082004 0 1 0 0 0 0 0 0 6 0
15201991999 3 226 0 0 112 3 0 2 87 3
15202012006 0 56 0 0 0 0 0 0 0 0
15202012008 0 11 0 0 0 0 0 0 0 1
15202012012 0 17 0 0 0 0 0 0 0 2
15202012015 1 128 0 0 0 0 0 2 34 4
15202022004 0 41 0 0 0 0 0 1 0 0
15202022005 0 15 0 0 0 0 0 0 0 0
15202022009 0 62 0 0 0 0 0 0 2 4
15202022011 6 31 0 0 0 0 0 1 49 0
15202022901 0 20 0 0 0 0 0 0 0 0
15202032001 1 15 0 0 0 0 0 0 5 1
15202032002 0 27 0 0 0 0 0 0 0 0
15202032010 0 15 0 0 0 0 0 0 0 0
15202032014 6 0 0 0 0 0 0 0 63 0
15202032901 0 16 0 0 0 0 0 0 0 0
15202042013 0 22 0 0 0 0 0 0 8 0
15202042901 0 13 0 0 0 0 0 0 2 1

P16A_OTRO Pueblo indígena u originario (Otro)

Atencion: hay que correr este pedazo de codigo una vez se cargue la tabla original.

tabla_P16A_OTRO <- table(x$clave, x$P16A_OTRO, useNA = "no")

# colnames(tabla_P16A) <- c( 
# "Mapuche","Aymara","Rapa Nui","Lican Antai","Quechua","Colla","Diaguita","Kawésqar","Yagán o Yamana","Otro","No aplica","Missing")


#write_xlsx(tabla_P16A_OTRO, "tabla_P16A_OTRO.xlsx")

a_P16A_OTRO <- head(tabla_P16A_OTRO,50)

kbl(a_P16A_OTRO) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
5 23 33 34 35 97 98 99
15101011001 0 0 5 1 21 17 1465 36
15101011002 0 0 1 0 17 8 913 62
15101021001 2 1 4 0 35 8 2625 75
15102012002 0 0 0 0 0 0 25 0
15102012003 0 0 1 0 9 7 543 5
15102022007 0 0 0 0 0 0 39 0
15102032005 0 0 0 0 0 0 112 0
15102032008 0 0 0 0 0 0 14 0
15102032901 0 0 0 0 0 1 29 0
15102042001 0 0 0 0 0 0 180 1
15102052004 0 0 1 0 6 7 241 4
15102052006 0 0 0 0 0 0 30 0
15201011001 0 0 0 0 3 1 1679 33
15201012901 0 0 0 0 0 0 37 0
15201022002 0 0 0 0 0 0 52 0
15201032006 0 0 0 0 0 0 31 0
15201032007 0 0 0 0 0 0 52 0
15201032901 0 0 0 0 0 0 35 0
15201042009 0 0 0 0 0 0 15 0
15201042021 0 0 0 0 0 0 73 2
15201042901 0 0 0 0 0 0 21 1
15201052001 0 0 0 0 0 1 52 10
15201052003 0 0 0 0 0 1 50 2
15201052012 0 0 0 0 0 0 25 0
15201052013 0 0 0 0 0 0 12 5
15201052020 0 0 0 0 0 1 17 0
15201052901 0 0 0 0 0 0 6 1
15201062005 0 0 0 0 0 0 4 0
15201062010 0 0 0 0 0 0 40 0
15201062017 0 0 0 0 0 0 2 0
15201062901 0 0 0 0 0 0 5 0
15201072901 0 0 0 0 0 8 44 1
15201082004 0 0 0 0 0 0 7 0
15201991999 0 0 1 0 0 1 431 3
15202012006 0 0 0 0 0 0 56 0
15202012008 0 0 0 0 0 0 11 1
15202012012 0 0 0 0 0 0 17 2
15202012015 0 0 0 0 2 0 163 4
15202022004 0 0 0 0 1 0 41 0
15202022005 0 0 0 0 0 0 15 0
15202022009 0 0 0 0 0 0 64 4
15202022011 0 0 0 0 1 0 86 0
15202022901 0 0 0 0 0 0 20 0
15202032001 0 0 0 0 0 0 21 1
15202032002 0 0 0 0 0 0 27 0
15202032010 0 0 0 0 0 0 15 0
15202032014 0 0 0 0 0 0 69 0
15202032901 0 0 0 0 0 0 16 0
15202042013 0 0 0 0 0 0 30 0
15202042901 0 0 0 0 0 0 15 1

Trabajo

P17 Trabajó durante la semana pasada

tabla_P17 <- table(x$clave, x$P17, useNA = "no")

colnames(tabla_P17) <- c( 
"Por un pago en dinero o especies","Sin pago para un familiar","Tenía empleo pero estuvo de vacaciones, con
licencia, en descanso laboral, etc.","Se encontraba buscando empleo","Estaba estudiando","Realizó quehaceres de su hogar","Es jubilado, pensionado o rentista","Otra situación","No aplica","Missing")



#write_xlsx(tabla_P17, "tabla_P17.xlsx")



kbl(tabla_P17) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
Por un pago en dinero o especies Sin pago para un familiar Tenía empleo pero estuvo de vacaciones, con licencia, en descanso laboral, etc. Se encontraba buscando empleo Estaba estudiando Realizó quehaceres de su hogar Es jubilado, pensionado o rentista Otra situación No aplica Missing
15101011001 770 21 51 43 68 78 163 80 200 71
15101011002 466 10 30 36 64 57 140 45 116 37
15101021001 1590 10 46 84 136 165 223 62 388 46
15102012002 13 0 0 1 0 1 5 0 5 0
15102012003 268 31 21 12 21 41 53 24 81 13
15102022007 19 2 1 0 3 2 1 0 10 1
15102032005 58 7 1 3 8 6 9 2 18 0
15102032008 2 8 0 0 0 0 0 2 2 0
15102032901 11 2 1 0 0 3 7 0 3 3
15102042001 107 10 1 5 5 9 7 3 32 2
15102052004 174 2 7 2 8 9 9 5 43 0
15102052006 30 0 0 0 0 0 0 0 0 0
15201011001 1013 31 44 55 68 139 37 115 183 31
15201012901 13 0 0 0 0 1 9 5 9 0
15201022002 31 8 0 0 2 4 1 2 4 0
15201032006 25 2 0 0 0 2 0 0 2 0
15201032007 50 0 1 1 0 0 0 0 0 0
15201032901 15 9 0 0 0 2 0 1 8 0
15201042009 10 2 0 0 0 0 0 0 3 0
15201042021 27 15 1 6 0 4 10 1 5 6
15201042901 14 0 0 5 0 2 0 0 0 1
15201052001 23 14 0 2 0 2 2 2 9 9
15201052003 23 8 6 0 2 5 2 3 1 3
15201052012 17 2 0 2 1 2 0 0 1 0
15201052013 6 2 0 0 0 1 1 0 7 0
15201052020 9 4 0 0 0 2 1 2 0 0
15201052901 1 1 0 0 0 2 2 0 0 1
15201062005 4 0 0 0 0 0 0 0 0 0
15201062010 21 6 0 0 2 2 5 2 2 0
15201062017 2 0 0 0 0 0 0 0 0 0
15201062901 1 3 0 0 0 0 1 0 0 0
15201072901 28 4 1 1 0 4 0 0 11 4
15201082004 6 0 1 0 0 0 0 0 0 0
15201991999 376 10 11 7 5 13 3 3 5 3
15202012006 15 0 0 0 0 15 10 2 14 0
15202012008 2 0 0 0 0 7 1 0 1 1
15202012012 4 2 0 0 0 1 0 5 5 2
15202012015 95 7 3 11 3 10 4 8 24 4
15202022004 18 0 0 1 2 3 2 4 12 0
15202022005 8 1 0 0 1 2 0 2 1 0
15202022009 19 2 0 0 0 21 7 2 12 5
15202022011 70 1 1 2 1 2 1 0 7 2
15202022901 14 1 0 0 0 0 3 0 2 0
15202032001 9 0 0 0 0 0 6 0 6 1
15202032002 9 2 1 0 1 4 3 1 6 0
15202032010 1 1 0 1 0 5 2 0 5 0
15202032014 69 0 0 0 0 0 0 0 0 0
15202032901 5 2 0 0 0 2 7 0 0 0
15202042013 12 5 0 0 0 3 5 0 5 0
15202042901 2 2 1 1 1 3 2 0 3 1
15202992999 0 0 0 0 0 1 0 0 0 0

P18 Rama de actividad económica

Atencion: hay que correr este pedazo de codigo una vez se cargue la tabla original.

tabla_P18 <- table(x$clave, x$P18, useNA = "no")

# colnames(tabla_P18) <- c( "Agricultura, ganadería, silvicultura y pesca","Explotación de minas y canteras","Industrias manufactureras","Suministro de electricidad, gas, vapor y aire
# acondicionado","Suministro de agua; evacuación de aguas residuales, gestión de desechos y
# descontaminación","Construcción","Comercio al por mayor y al por menor; reparación
# de vehículos automotores y motocicletas","Transporte y almacenamiento","Actividades de alojamiento y de servicios de
# comidas","Información y comunicaciones","Actividades financieras y de seguros","Actividades inmobiliarias","Actividades profesionales, científicas y técnicas","Actividades de servicios administrativos y de apoyo","Administración pública y defensa; planes de
# seguridad social de afiliación obligatoria","Enseñanza","Actividades de atención de la salud humana y de
# asistencia social","Actividades artísticas, de entretenimiento y
# recreativas","Otras actividades de servicios","Actividades de los hogares como empleadores;
# actividades no diferenciadas de los hogares como productores de bienes y servicios para uso propio","Actividades de organizaciones y órganos
# extraterritoriales","Rama no declarada","No aplica","Missing")



#write_xlsx(tabla_P18, "tabla_P18.xlsx")

a_P18 <- head(tabla_P18,50)

kbl(a_P18) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
98 99 A B C D E F G H I J K L M N O P Q R S T Z
15101011001 632 71 12 6 35 1 2 79 151 55 76 5 4 2 23 24 73 51 29 17 25 12 160
15101011002 458 37 10 6 23 0 1 32 100 41 42 8 11 1 21 22 38 28 23 6 12 5 76
15101021001 1058 46 9 20 33 0 6 71 163 45 63 18 12 3 35 40 804 85 47 15 21 11 145
15102012002 12 0 10 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 1
15102012003 232 13 63 1 2 2 0 33 17 20 18 1 0 0 6 10 66 25 6 1 3 3 43
15102022007 16 1 6 3 3 0 0 0 5 0 0 1 1 0 0 0 0 1 0 0 0 1 1
15102032005 46 0 28 1 1 1 0 1 5 3 2 0 0 0 0 0 17 5 0 0 0 0 2
15102032008 4 0 8 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0
15102032901 13 3 5 0 0 0 0 2 0 2 1 0 0 0 0 0 0 0 0 0 0 2 2
15102042001 61 2 66 0 12 0 0 8 3 0 5 0 0 0 0 3 16 1 1 0 0 1 2
15102052004 76 0 34 1 5 0 0 49 20 1 14 4 0 0 1 6 23 3 3 0 1 0 18
15102052006 0 0 0 28 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
15201011001 597 31 35 2 18 2 4 63 58 30 50 6 2 0 14 23 599 25 21 3 7 2 124
15201012901 24 0 4 0 0 0 0 1 1 1 3 0 0 0 0 2 1 0 0 0 0 0 0
15201022002 13 0 13 0 1 0 0 3 3 0 0 0 0 0 0 0 19 0 0 0 0 0 0
15201032006 4 0 6 0 0 0 0 0 0 9 4 0 0 0 0 0 7 0 0 0 0 0 1
15201032007 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0 5 44 0 0 0 0 0 1
15201032901 11 0 12 0 1 0 0 1 4 1 3 0 0 0 0 1 0 1 0 0 0 0 0
15201042009 3 0 12 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201042021 26 6 16 0 1 0 0 7 2 1 3 0 0 0 0 1 2 2 2 0 0 0 6
15201042901 7 1 5 0 0 0 0 0 0 0 7 0 0 0 0 1 1 0 0 0 0 0 0
15201052001 17 9 18 1 1 0 0 2 1 0 0 0 0 0 0 3 2 0 2 0 0 0 7
15201052003 13 3 5 0 0 7 0 1 0 0 1 0 0 0 0 0 13 0 0 0 1 1 8
15201052012 6 0 4 0 0 0 0 0 1 0 0 0 0 0 1 0 2 0 0 0 0 0 11
15201052013 9 0 5 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 1 0 0
15201052020 5 0 7 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6
15201052901 4 1 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201062005 0 0 0 0 1 0 0 1 1 0 0 0 0 0 0 0 0 0 1 0 0 0 0
15201062010 13 0 16 0 1 0 0 1 2 2 1 0 0 0 0 0 1 0 0 0 0 0 3
15201062017 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15201062901 1 0 3 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
15201072901 16 4 15 0 0 0 0 1 1 1 2 0 0 0 0 2 0 6 2 0 0 0 3
15201082004 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 6 0 0 0 0 0 0
15201991999 36 3 9 6 9 0 0 6 39 288 4 0 4 0 5 1 5 1 1 0 1 2 16
15202012006 41 0 4 0 0 0 0 2 0 0 1 0 0 0 0 1 0 0 0 0 0 0 7
15202012008 9 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0
15202012012 11 2 6 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202012015 60 4 7 1 1 0 0 5 3 4 7 1 0 0 1 2 49 15 7 0 0 0 2
15202022004 24 0 3 0 0 0 1 1 0 0 2 0 0 0 0 4 0 2 0 0 0 0 5
15202022005 6 0 8 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0
15202022009 42 5 10 0 0 0 0 3 1 0 0 0 0 0 0 2 1 2 0 0 0 0 2
15202022011 13 2 18 0 0 0 0 0 0 2 0 0 0 0 0 1 51 0 0 0 0 0 0
15202022901 5 0 13 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1
15202032001 12 1 2 0 0 0 0 0 0 1 0 0 0 0 0 0 5 1 0 0 0 0 0
15202032002 15 0 4 0 0 0 0 0 1 0 1 0 0 0 0 2 0 2 0 0 0 0 2
15202032010 13 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2
15202032014 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 69 0 0 0 0 0 0
15202032901 9 0 4 0 1 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0
15202042013 13 0 9 0 0 0 0 0 0 0 0 0 0 0 0 1 7 0 0 0 0 0 0
15202042901 10 1 2 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 2

Demografía

P19 Total hijos/as nacidos vivos

tabla_P19 <- table(x$clave, x$P19, useNA = "no")



#write_xlsx(tabla_P15A, "tabla_P15A.xlsx")

a_P19 <- head(tabla_P19,50)

kbl(a_P19) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 98 99
15101011001 140 109 157 79 47 18 9 5 2 0 0 1 1 1 1 948 27
15101011002 103 90 104 81 28 13 3 2 1 3 0 1 0 0 0 550 22
15101021001 214 202 184 129 46 27 11 10 3 4 1 1 1 0 0 1867 50
15102012002 0 1 3 0 1 2 0 1 0 0 0 0 0 0 0 17 0
15102012003 43 37 45 39 22 17 8 4 4 3 1 1 0 0 0 334 7
15102022007 3 3 2 1 3 0 1 0 0 0 0 0 0 0 0 26 0
15102032005 12 5 8 7 2 7 3 1 0 0 0 0 0 0 0 67 0
15102032008 1 0 2 0 0 1 0 0 1 0 0 0 0 0 0 9 0
15102032901 1 2 2 0 1 2 2 0 1 1 0 0 0 0 0 18 0
15102042001 13 4 7 16 5 4 6 1 1 1 0 0 0 0 0 122 1
15102052004 15 14 10 10 7 6 0 0 0 0 0 2 0 1 0 194 0
15102052006 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29 1
15201011001 79 54 61 38 20 16 6 9 3 2 4 0 0 0 0 1410 14
15201012901 7 0 2 3 1 0 0 0 0 0 0 0 0 0 0 24 0
15201022002 3 1 3 1 2 2 1 0 0 0 0 0 0 0 0 39 0
15201032006 1 1 2 3 1 0 0 0 1 0 0 0 0 0 0 22 0
15201032007 3 7 4 0 0 0 0 0 0 0 0 0 0 0 0 38 0
15201032901 4 0 3 0 1 1 3 0 1 0 0 0 0 0 0 22 0
15201042009 0 0 1 1 0 0 0 0 0 0 0 0 0 0 0 12 1
15201042021 2 1 4 1 7 2 1 0 2 0 2 0 0 0 0 42 11
15201042901 4 0 1 2 1 3 0 0 0 0 0 0 0 0 0 10 1
15201052001 1 0 3 3 4 5 3 2 0 0 0 0 0 0 0 39 3
15201052003 3 2 2 1 0 1 1 2 0 1 0 1 1 0 0 38 0
15201052012 2 1 1 3 2 1 1 1 0 0 0 0 0 0 0 13 0
15201052013 1 0 1 1 1 1 0 1 1 0 0 0 0 0 0 10 0
15201052020 1 0 1 4 0 0 0 0 1 0 0 0 0 0 0 11 0
15201052901 0 0 0 3 0 0 0 0 1 0 0 0 0 0 0 3 0
15201062005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 0
15201062010 2 3 3 2 3 2 1 0 1 0 0 1 1 0 0 21 0
15201062017 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0
15201062901 1 0 0 1 0 0 0 1 0 0 0 0 0 0 0 2 0
15201072901 2 3 5 2 6 1 2 1 1 0 0 0 0 0 0 30 0
15201082004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 0
15201991999 14 8 6 14 10 2 1 1 0 0 0 0 1 0 0 374 5
15202012006 2 1 10 3 1 2 1 0 2 0 0 0 0 0 0 34 0
15202012008 0 0 0 3 0 0 1 1 0 0 0 0 0 0 0 7 0
15202012012 2 0 2 1 0 0 1 0 0 0 0 0 1 0 0 12 0
15202012015 9 12 15 7 5 2 2 1 1 0 0 0 1 0 0 109 5
15202022004 4 1 2 0 0 0 2 2 1 0 0 1 0 0 0 28 1
15202022005 2 2 1 0 0 0 0 2 0 0 0 0 0 0 0 8 0
15202022009 3 3 4 4 3 3 3 0 1 3 1 0 0 0 0 36 4
15202022011 1 1 1 4 2 0 1 1 0 0 1 0 0 0 0 74 1
15202022901 0 1 1 0 3 1 1 0 0 0 0 0 0 0 0 12 1
15202032001 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 18 2
15202032002 2 2 2 1 0 0 0 1 2 0 1 0 0 0 0 16 0
15202032010 0 1 1 2 0 2 2 0 0 0 0 0 0 0 0 7 0
15202032014 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 69 0
15202032901 2 0 0 0 0 4 0 2 0 0 0 0 0 0 0 8 0
15202042013 1 1 3 2 0 0 1 2 0 0 1 0 0 0 0 19 0
15202042901 0 1 3 0 0 0 2 0 0 0 0 0 0 0 0 9 1

P20 Total hijos/as actualmente vivos

tabla_P20 <- table(x$clave, x$P20, useNA = "no")
#write_xlsx(tabla_P20, "tabla_P20.xlsx")

a_P20 <- head(tabla_P20,50)

kbl(a_P20) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
0 1 2 3 4 5 6 7 8 9 10 11 98 99
15101011001 1 116 159 85 40 13 6 4 2 0 0 1 1088 30
15101011002 3 92 108 73 28 13 4 1 1 1 0 1 653 23
15101021001 6 206 187 121 48 27 11 7 3 3 0 0 2081 50
15102012002 0 1 3 0 1 2 0 1 0 0 0 0 17 0
15102012003 0 43 42 41 23 13 9 2 3 2 2 0 377 8
15102022007 0 3 2 2 2 0 1 0 0 0 0 0 29 0
15102032005 0 5 9 6 4 8 1 0 0 0 0 0 79 0
15102032008 0 0 2 0 0 1 0 1 0 0 0 0 10 0
15102032901 0 3 1 0 1 3 2 0 1 0 0 0 19 0
15102042001 0 4 9 17 6 3 4 1 0 1 0 0 135 1
15102052004 0 15 9 11 7 5 1 0 0 0 0 2 209 0
15102052006 0 0 0 0 0 0 0 0 0 0 0 0 29 1
15201011001 1 55 61 39 23 15 7 4 2 2 4 0 1489 14
15201012901 0 1 1 3 1 0 0 0 0 0 0 0 31 0
15201022002 0 1 3 1 2 2 1 0 0 0 0 0 42 0
15201032006 0 1 3 2 1 0 0 1 0 0 0 0 23 0
15201032007 0 7 4 0 0 0 0 0 0 0 0 0 41 0
15201032901 0 0 4 0 1 1 2 1 0 0 0 0 26 0
15201042009 0 0 1 1 0 0 0 0 0 0 0 0 12 1
15201042021 0 1 4 2 7 1 3 2 0 0 0 0 44 11
15201042901 0 0 1 4 1 1 0 0 0 0 0 0 14 1
15201052001 0 0 3 3 5 6 2 1 0 0 0 0 40 3
15201052003 0 2 2 1 0 3 3 0 1 0 0 0 41 0
15201052012 0 1 1 4 2 0 1 1 0 0 0 0 15 0
15201052013 0 0 2 1 0 1 1 0 1 0 0 0 11 0
15201052020 0 0 1 4 0 0 1 0 0 0 0 0 12 0
15201052901 0 0 0 3 0 0 0 1 0 0 0 0 3 0
15201062005 0 0 0 0 0 0 0 0 0 0 0 0 4 0
15201062010 1 3 2 3 2 4 0 0 1 0 1 0 23 0
15201062017 0 0 0 0 0 0 0 0 0 0 0 0 2 0
15201062901 0 0 1 0 0 0 1 0 0 0 0 0 3 0
15201072901 0 5 3 4 5 0 2 1 1 0 0 0 32 0
15201082004 0 0 0 0 0 0 0 0 0 0 0 0 7 0
15201991999 1 7 8 12 9 2 1 1 1 0 0 0 388 6
15202012006 0 3 8 3 2 1 2 0 1 0 0 0 36 0
15202012008 0 0 0 3 0 1 0 1 0 0 0 0 7 0
15202012012 0 0 2 1 0 0 1 0 0 0 1 0 14 0
15202012015 0 12 16 5 5 2 3 2 0 0 0 0 118 6
15202022004 0 1 2 0 0 1 1 2 1 0 0 1 32 1
15202022005 0 2 1 1 0 0 0 1 0 0 0 0 10 0
15202022009 0 3 4 5 3 3 4 0 1 2 0 0 39 4
15202022011 0 1 1 4 2 0 1 1 0 1 0 0 75 1
15202022901 0 1 1 0 3 1 1 0 0 0 0 0 12 1
15202032001 0 1 0 0 1 0 0 0 0 0 0 0 18 2
15202032002 0 2 2 1 0 0 1 2 1 0 0 0 18 0
15202032010 0 1 1 2 1 1 2 0 0 0 0 0 7 0
15202032014 0 0 0 0 0 0 0 0 0 0 0 0 69 0
15202032901 0 0 0 0 2 2 1 1 0 0 0 0 10 0
15202042013 0 1 3 2 1 0 2 1 0 0 0 0 20 0
15202042901 0 1 3 0 0 1 1 0 0 0 0 0 9 1

P21M Mes de nacimiento del último/a hijo/a

tabla_P21M <- table(x$clave, x$P21M, useNA = "no")
#write_xlsx(tabla_P15A, "tabla_P15A.xlsx")

a_P21M <- head(tabla_P21M,50)

kbl(a_P21M) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
1 2 3 4 5 6 7 8 9 10 11 12 98 99
15101011001 30 33 34 29 42 39 42 30 35 38 30 32 1088 43
15101011002 38 19 36 25 27 21 19 28 27 29 27 26 653 26
15101021001 48 55 52 50 54 57 47 48 50 53 45 45 2081 65
15102012002 0 1 1 2 0 2 0 1 0 1 0 0 17 0
15102012003 11 21 13 9 12 18 19 18 16 18 16 7 377 10
15102022007 1 2 0 1 0 0 3 0 0 1 0 2 29 0
15102032005 3 2 3 3 0 3 1 3 3 5 5 2 79 0
15102032008 0 0 0 1 0 0 0 2 0 1 0 0 10 0
15102032901 1 2 2 1 1 0 0 2 0 1 1 0 19 0
15102042001 3 1 4 5 4 4 3 3 2 3 4 8 135 2
15102052004 10 3 2 5 2 5 3 1 6 4 5 4 209 0
15102052006 0 0 0 0 0 0 0 0 0 0 0 0 29 1
15201011001 14 18 14 20 22 11 15 16 22 18 13 17 1489 27
15201012901 0 1 0 0 1 1 1 0 0 1 1 0 31 0
15201022002 1 1 0 0 1 3 0 0 3 0 0 0 42 1
15201032006 0 0 1 0 0 1 0 0 0 0 2 1 23 3
15201032007 0 1 2 1 1 0 1 0 1 3 1 0 41 0
15201032901 0 0 0 0 1 0 0 1 1 4 1 0 26 1
15201042009 0 0 0 0 1 1 0 0 0 0 0 0 12 1
15201042021 1 2 2 4 1 2 1 0 2 1 1 0 44 14
15201042901 1 0 0 1 1 0 1 0 0 0 1 2 14 1
15201052001 2 4 1 0 1 2 2 1 2 1 0 2 40 5
15201052003 0 0 1 0 2 0 1 1 0 1 2 0 41 4
15201052012 0 0 1 2 3 1 0 0 0 3 0 0 15 0
15201052013 0 0 2 2 0 0 1 0 0 1 0 0 11 0
15201052020 0 0 0 1 1 2 0 0 0 0 1 0 12 1
15201052901 1 0 0 0 0 0 0 0 0 0 0 0 3 3
15201062005 0 0 0 0 0 0 0 0 0 0 0 0 4 0
15201062010 2 0 0 4 2 1 2 1 2 0 2 1 23 0
15201062017 0 0 0 0 0 0 0 0 0 0 0 0 2 0
15201062901 0 0 0 0 1 0 0 0 0 0 0 0 3 1
15201072901 1 0 0 1 3 0 1 2 1 4 5 0 32 3
15201082004 0 0 0 0 0 0 0 0 0 0 0 0 7 0
15201991999 1 2 6 4 1 8 2 6 4 2 1 5 388 6
15202012006 0 1 3 3 0 0 1 0 3 1 3 2 36 3
15202012008 0 1 1 0 0 1 1 0 0 0 0 1 7 0
15202012012 0 1 0 0 0 1 1 0 0 0 0 0 14 2
15202012015 2 3 4 3 3 6 2 9 1 2 2 6 118 8
15202022004 0 1 2 0 1 1 0 0 0 2 0 1 32 2
15202022005 0 0 2 0 2 0 0 0 0 0 1 0 10 0
15202022009 1 1 1 2 1 2 0 3 1 2 1 0 39 14
15202022011 1 2 1 3 1 0 0 1 1 0 1 0 75 1
15202022901 0 1 0 2 1 2 0 0 0 0 1 0 12 1
15202032001 0 0 0 0 0 0 0 0 0 1 0 0 18 3
15202032002 0 0 1 1 1 0 0 2 0 0 1 1 18 2
15202032010 0 1 0 1 1 1 1 0 2 1 0 0 7 0
15202032014 0 0 0 0 0 0 0 0 0 0 0 0 69 0
15202032901 0 0 0 1 0 0 0 1 0 0 1 0 10 3
15202042013 0 0 1 1 2 2 1 2 1 0 0 0 20 0
15202042901 0 1 0 1 0 0 0 1 2 0 0 0 9 2

P21A Año de nacimiento del último/a hijo/a

tabla_P21A <- table(x$clave, x$P21A, useNA = "no")
#write_xlsx(tabla_P21A, "tabla_P21A.xlsx")

a_P21A <- head(tabla_P21A,50)

kbl(a_P21A) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
1945 1947 1950 1952 1953 1954 1955 1956 1957 1958 1959 1960 1961 1962 1963 1964 1965 1966 1967 1968 1969 1970 1971 1972 1973 1974 1975 1976 1977 1978 1979 1980 1981 1982 1983 1984 1985 1986 1987 1988 1989 1990 1991 1992 1993 1994 1995 1996 1997 1998 1999 2000 2001 2002 2003 2004 2005 2006 2007 2008 2009 2010 2011 2012 2013 2014 2015 2016 2017 9998 9999
15101011001 0 1 1 0 2 0 1 5 0 3 2 2 5 1 3 3 4 2 3 3 4 3 4 3 7 6 10 10 5 8 8 5 5 9 5 6 9 2 7 11 4 16 10 7 6 7 6 5 6 7 6 3 5 8 8 11 6 9 8 8 11 11 11 13 12 12 18 12 0 1088 43
15101011002 0 0 0 1 0 0 0 0 2 2 2 1 2 2 1 1 3 3 3 2 3 4 4 4 2 6 5 7 2 7 0 6 1 7 6 8 9 7 6 8 6 6 5 8 10 6 6 2 8 11 6 4 8 5 7 8 4 6 3 1 8 11 7 13 12 5 9 8 2 653 26
15101021001 1 0 0 0 0 1 2 2 2 0 3 4 1 12 6 8 2 7 7 8 7 5 6 1 12 5 7 2 7 7 5 9 5 9 11 6 7 4 7 9 6 8 16 7 9 8 7 13 11 12 13 12 9 10 14 17 6 12 12 18 17 18 28 16 17 18 34 33 6 2081 65
15102012002 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 1 1 0 0 17 0
15102012003 0 0 0 2 0 0 0 0 1 0 0 2 1 0 0 3 0 0 0 0 2 1 1 3 7 0 6 5 3 4 4 3 7 2 4 2 4 2 2 3 2 4 1 3 3 4 9 5 3 4 3 1 3 4 4 0 4 1 4 5 5 2 6 4 5 7 3 4 1 377 10
15102022007 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 1 0 0 1 0 0 0 0 0 1 1 0 29 0
15102032005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 2 0 0 0 1 1 0 1 0 0 0 1 0 1 1 0 0 0 1 2 2 0 1 1 0 1 0 0 2 1 0 2 1 1 0 2 0 1 0 2 0 1 2 0 1 79 0
15102032008 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 10 0
15102032901 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 1 0 0 0 0 0 0 0 0 1 0 0 2 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 1 0 0 0 0 0 0 0 0 0 0 0 19 0
15102042001 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 2 1 1 0 1 0 0 1 0 0 0 1 2 1 1 1 1 1 1 1 1 1 1 1 3 1 1 0 2 0 0 0 0 1 0 1 0 2 1 1 0 2 1 3 1 2 135 2
15102052004 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 1 0 1 0 1 0 0 2 0 2 0 0 1 0 1 2 0 1 0 3 1 1 2 2 1 0 1 0 2 3 5 1 3 1 3 2 4 0 209 0
15102052006 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 29 1
15201011001 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 1 1 3 0 0 2 0 3 2 0 1 1 0 0 1 1 3 3 2 4 4 0 3 0 3 1 4 4 2 8 2 2 2 2 6 2 2 3 10 4 4 5 11 4 11 4 9 7 10 12 19 10 0 1489 27
15201012901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 1 0 0 31 0
15201022002 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 1 1 1 0 0 0 0 1 0 0 0 0 1 0 0 0 0 42 1
15201032006 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 1 0 0 0 0 0 0 1 0 0 1 0 0 23 3
15201032007 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 1 1 0 1 0 0 0 1 0 1 0 1 0 2 0 0 0 41 0
15201032901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 1 0 26 1
15201042009 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 12 1
15201042021 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 2 0 0 0 2 0 0 2 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 1 0 0 0 0 1 0 1 0 0 0 2 1 0 0 0 0 0 0 0 44 14
15201042901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 14 1
15201052001 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 0 0 0 1 0 0 0 0 0 0 2 0 2 0 1 0 0 0 0 0 0 0 1 0 0 1 0 1 1 1 0 1 0 1 2 1 0 0 0 0 40 5
15201052003 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 41 4
15201052012 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 0 0 1 1 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 15 0
15201052013 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 1 0 0 0 0 1 1 0 0 0 0 0 0 0 0 11 0
15201052020 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 12 1
15201052901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 3
15201062005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 0
15201062010 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 1 1 0 1 0 0 0 3 0 1 3 0 1 0 0 2 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 23 0
15201062017 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0
15201062901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 3 1
15201072901 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 1 1 0 0 0 1 0 0 0 0 2 0 1 0 0 0 0 0 0 0 1 1 1 4 0 1 0 0 0 0 32 3
15201082004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 0
15201991999 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 1 0 0 0 0 1 0 0 0 3 1 1 2 1 1 0 2 1 2 2 3 1 0 1 0 4 1 0 2 0 0 1 4 5 0 0 388 6
15202012006 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 1 0 0 1 1 0 1 0 0 0 1 0 1 0 0 0 2 0 1 0 0 1 1 1 0 0 36 3
15202012008 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 7 0
15202012012 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 14 2
15202012015 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 1 0 0 1 0 0 2 1 0 0 0 1 2 0 2 0 0 4 0 2 2 2 1 0 0 1 0 5 1 1 1 2 1 2 1 3 2 0 118 8
15202022004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 1 0 0 0 0 1 0 0 0 0 0 0 1 1 0 0 1 0 1 0 32 2
15202022005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 1 0 0 0 10 0
15202022009 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 0 0 1 1 1 0 0 0 2 0 0 0 0 0 1 1 0 0 0 0 0 2 1 1 2 0 39 14
15202022011 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 2 1 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 1 0 0 2 1 0 0 0 0 0 0 1 1 0 0 75 1
15202022901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 1 0 0 0 1 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 12 1
15202032001 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 18 3
15202032002 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 0 0 0 0 1 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 2 0 18 2
15202032010 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 0 1 1 0 7 0
15202032014 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 69 0
15202032901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 10 3
15202042013 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 1 0 0 0 0 0 1 0 0 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 1 1 1 0 1 0 0 0 20 0
15202042901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 1 1 0 9 2

Migración

P10PAIS_GRUPO País de residencia habitual (grupo)

Atencion: hay que correr este pedazo de codigo una vez se cargue la tabla original.

tabla_P10PAIS_GRUPO <- table(x$clave, x$P10PAIS_GRUPO, useNA = "no")

# colnames(tabla_P17) <- c( 
# "África","Sudamérica","Oceanía","Antártida","Centroamérica","Norteamérica","Caribe","Argentina","Bolivia (Estado Plurinacional de)","Asia", "Europa","Colombia","Ecuador","Haití", "Perú", "Venezuela (República Bolivariana de)", "País no declarado", "No aplica","Missing")



#write_xlsx(tabla_P10PAIS_GRUPO, "tabla_P10PAIS_GRUPO.xlsx")

P10PAIS_GRUPO <- head(tabla_P10PAIS_GRUPO,50)

kbl(P10PAIS_GRUPO) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
9 21 29 32 68 150 170 604 997 998 999
15101011001 2 2 0 6 8 1 4 56 1 1448 17
15101011002 0 1 0 0 2 7 0 5 0 967 19
15101021001 0 0 0 0 1 3 0 5 0 2716 25
15102012002 0 0 0 0 0 0 0 0 0 25 0
15102012003 0 1 0 0 8 5 0 2 0 541 8
15102022007 0 0 0 0 0 0 0 0 0 39 0
15102032005 0 0 0 0 0 0 0 0 0 112 0
15102032008 0 0 0 0 0 0 0 0 0 14 0
15102032901 0 0 0 0 0 0 0 0 0 30 0
15102042001 0 0 0 0 2 0 0 2 0 176 1
15102052004 0 0 0 0 1 0 0 1 0 255 2
15102052006 0 0 0 0 0 0 0 0 0 30 0
15201011001 1 0 0 0 1 2 0 2 0 1697 13
15201012901 0 0 0 0 0 9 0 0 0 28 0
15201022002 0 0 0 0 0 0 0 0 0 52 0
15201032006 0 0 0 0 0 0 0 0 0 31 0
15201032007 0 0 0 0 0 0 0 0 0 52 0
15201032901 0 0 0 0 0 0 0 0 0 35 0
15201042009 0 0 0 0 0 0 0 0 0 15 0
15201042021 0 0 0 0 0 0 0 2 0 72 1
15201042901 0 0 0 0 1 0 0 6 0 14 1
15201052001 0 0 0 0 2 0 0 2 0 52 7
15201052003 0 0 0 0 0 0 0 1 0 50 2
15201052012 0 0 0 0 0 0 0 0 0 25 0
15201052013 0 0 0 0 0 0 0 0 0 12 5
15201052020 0 0 0 0 0 0 0 0 0 18 0
15201052901 0 0 0 0 0 0 0 0 0 6 1
15201062005 0 0 0 0 0 0 0 0 0 4 0
15201062010 0 0 0 0 0 0 0 0 0 40 0
15201062017 0 0 0 0 0 0 0 0 0 2 0
15201062901 0 0 0 0 0 0 0 0 0 5 0
15201072901 0 0 0 0 0 0 0 0 0 52 1
15201082004 0 0 0 0 0 0 0 0 0 7 0
15201991999 0 1 1 0 390 2 0 1 1 39 1
15202012006 0 0 0 0 1 0 0 0 0 55 0
15202012008 0 0 0 0 0 0 0 0 0 11 1
15202012012 0 0 0 0 0 0 0 0 0 17 2
15202012015 0 0 0 0 2 0 0 0 0 163 4
15202022004 0 0 0 0 0 0 0 0 0 42 0
15202022005 0 0 0 0 0 0 0 0 0 15 0
15202022009 0 0 0 0 0 0 0 0 0 65 3
15202022011 0 0 0 0 0 0 0 0 0 87 0
15202022901 0 0 0 0 0 0 0 0 0 18 2
15202032001 0 0 0 0 0 0 0 0 0 21 1
15202032002 0 0 0 0 0 0 0 0 0 27 0
15202032010 0 0 0 0 0 0 0 0 0 15 0
15202032014 0 0 0 0 0 0 0 0 0 69 0
15202032901 0 0 0 0 0 0 0 0 0 16 0
15202042013 0 0 0 0 0 0 0 0 0 30 0
15202042901 0 0 0 0 0 0 0 0 0 15 1

P11PAIS_GRUPO País de residencia hace 5 años (grupo)

Atencion: hay que correr este pedazo de codigo una vez se cargue la tabla original.

tabla_P11PAIS_GRUPO <- table(x$clave, x$P11PAIS_GRUPO, useNA = "no")

# colnames(tabla_P17) <- c( 
# "África","Sudamérica","Oceanía","Antártida","Centroamérica","Norteamérica","Caribe","Argentina","Bolivia (Estado Plurinacional de)","Asia", "Europa","Colombia","Ecuador","Haití", "Perú", "Venezuela (República Bolivariana de)", "País no declarado", "No aplica","Missing")

#write_xlsx(tabla_P11PAIS_GRUPO, "tabla_P11PAIS_GRUPO.xlsx")

a_P11PAIS_GRUPO <- head(tabla_P11PAIS_GRUPO,50)

kbl(a_P11PAIS_GRUPO) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
2 5 9 13 21 29 32 68 142 150 170 218 332 604 862 997 998 999
15101011001 0 0 2 3 2 3 7 51 2 8 14 3 0 98 2 2 1312 36
15101011002 0 0 0 0 2 0 1 15 0 6 12 0 0 18 0 0 900 47
15101021001 1 1 3 0 1 3 6 38 0 22 25 5 0 50 6 1 2528 60
15102012002 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0 0 20 3
15102012003 0 0 0 0 1 0 0 16 1 5 0 0 0 14 0 0 513 15
15102022007 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 39 0
15102032005 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 107 3
15102032008 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 13 1
15102032901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30 0
15102042001 0 1 0 0 0 0 0 11 0 0 0 0 0 19 0 0 150 0
15102052004 0 0 0 0 0 0 0 3 0 0 0 0 0 9 0 0 246 1
15102052006 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30 0
15201011001 0 0 1 1 0 0 0 43 0 4 0 0 1 17 0 0 1622 27
15201012901 0 0 0 0 0 0 0 0 0 9 0 0 0 1 0 0 27 0
15201022002 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 50 1
15201032006 0 0 0 0 0 0 0 7 0 0 0 0 0 0 0 0 24 0
15201032007 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 52 0
15201032901 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 30 4
15201042009 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 15 0
15201042021 0 0 0 0 0 0 0 0 0 0 0 0 0 11 0 0 56 8
15201042901 0 0 0 0 0 0 0 1 0 0 0 0 0 8 0 0 12 1
15201052001 0 0 0 0 0 0 0 6 0 0 0 0 0 2 0 0 48 7
15201052003 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 49 3
15201052012 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 24 0
15201052013 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 11 6
15201052020 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 18 0
15201052901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 1
15201062005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 0
15201062010 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 40 0
15201062017 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0
15201062901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 5 0
15201072901 0 0 0 0 0 0 0 4 0 0 0 0 0 0 0 0 48 1
15201082004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 0
15201991999 0 0 0 0 1 0 0 388 0 3 0 0 0 3 0 0 40 1
15202012006 0 0 0 0 0 0 0 2 0 0 0 0 0 1 0 0 52 1
15202012008 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 11 1
15202012012 0 0 0 0 0 0 0 3 0 0 0 0 0 1 0 0 13 2
15202012015 0 0 0 0 0 0 0 12 0 0 0 0 0 0 0 0 152 5
15202022004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 42 0
15202022005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 15 0
15202022009 0 0 0 0 0 0 0 1 0 0 0 0 0 0 0 0 61 6
15202022011 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 87 0
15202022901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 17 3
15202032001 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 21 1
15202032002 0 0 0 0 0 0 0 2 0 0 0 0 0 2 0 0 23 0
15202032010 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 15 0
15202032014 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 69 0
15202032901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 16 0
15202042013 0 0 0 0 0 0 0 0 0 0 0 0 0 1 0 0 28 1
15202042901 0 0 0 0 0 0 0 3 0 0 0 0 0 0 0 0 11 2

P12PAIS_GRUPO País de nacimiento (grupo)

Atencion: hay que correr este pedazo de codigo una vez se cargue la tabla original.

tabla_P12PAIS_GRUPO <- table(x$clave, x$P12PAIS_GRUPO, useNA = "no")

# colnames(tabla_P17) <- c( 
# "África","Sudamérica","Oceanía","Antártida","Centroamérica","Norteamérica","Caribe","Argentina","Bolivia (Estado Plurinacional de)","Asia", "Europa","Colombia","Ecuador","Haití", "Perú", "Venezuela (República Bolivariana de)", "País no declarado", "No aplica","Missing")


#write_xlsx(tabla_P12PAIS_GRUPO, "tabla_P12PAIS_GRUPO.xlsx")

P12PAIS_GRUPO <- head(tabla_P12PAIS_GRUPO,50)

kbl(P12PAIS_GRUPO) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
5 9 13 21 29 32 68 142 150 170 218 604 862 997 998 999
15101011001 3 1 1 2 5 7 88 8 8 21 2 187 2 2 1180 28
15101011002 0 0 0 1 2 4 31 5 10 15 2 40 0 0 840 51
15101021001 6 1 0 2 2 15 78 1 16 36 12 108 3 0 2409 61
15102012002 0 0 0 0 0 0 2 0 0 0 0 3 0 0 20 0
15102012003 0 0 0 1 0 0 27 1 6 0 1 21 0 0 499 9
15102022007 0 0 0 0 0 0 0 0 0 0 0 0 0 0 39 0
15102032005 0 0 0 0 0 1 5 0 0 0 0 0 0 0 105 1
15102032008 0 0 0 0 0 0 0 0 0 0 0 0 0 0 14 0
15102032901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 30 0
15102042001 0 0 0 0 0 1 26 0 0 0 0 20 0 0 134 0
15102052004 0 0 0 0 0 0 5 0 0 1 0 19 0 0 234 0
15102052006 0 0 0 0 0 0 1 0 0 0 0 2 0 0 27 0
15201011001 0 1 2 1 0 4 131 0 5 0 0 29 1 0 1511 31
15201012901 0 0 0 0 0 0 0 0 9 0 0 4 0 0 22 2
15201022002 0 0 0 0 0 0 4 0 0 0 0 0 0 0 47 1
15201032006 0 0 0 0 0 0 16 0 0 0 0 1 0 0 14 0
15201032007 0 0 0 0 0 0 1 0 1 0 0 0 0 0 50 0
15201032901 0 0 0 0 0 0 6 0 0 0 0 1 0 0 28 0
15201042009 0 0 0 0 0 0 1 0 0 0 0 1 0 0 12 1
15201042021 1 0 0 0 0 0 2 0 0 0 0 12 0 0 57 3
15201042901 0 0 0 0 0 1 1 0 0 0 0 8 0 0 11 1
15201052001 0 0 0 0 0 0 10 0 0 0 0 3 0 0 40 10
15201052003 0 0 0 0 0 0 3 0 0 0 0 1 0 0 46 3
15201052012 0 0 0 0 0 0 3 0 0 0 0 1 0 0 21 0
15201052013 0 0 0 0 0 0 1 0 0 0 0 0 0 0 11 5
15201052020 0 0 0 0 0 0 1 0 0 0 0 1 0 0 16 0
15201052901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 6 1
15201062005 0 0 0 0 0 0 0 0 0 0 0 0 0 0 4 0
15201062010 0 0 0 0 0 0 4 0 0 0 0 0 0 0 36 0
15201062017 0 0 0 0 0 0 0 0 0 0 0 0 0 0 2 0
15201062901 0 0 0 0 0 0 1 0 0 0 0 0 0 0 4 0
15201072901 0 0 0 0 0 0 8 0 0 0 0 0 0 0 44 1
15201082004 0 0 0 0 0 0 0 0 0 0 0 0 0 0 7 0
15201991999 0 0 0 1 0 1 402 0 2 1 1 5 0 4 19 0
15202012006 0 0 0 0 0 0 5 0 0 0 0 3 0 0 48 0
15202012008 0 0 0 0 0 0 0 0 0 0 0 3 0 0 8 1
15202012012 0 0 0 0 0 0 1 0 0 0 0 5 0 0 11 2
15202012015 0 0 0 0 0 0 21 0 0 0 0 0 0 0 141 7
15202022004 0 0 0 0 0 0 1 0 0 0 0 0 0 0 41 0
15202022005 0 0 0 0 0 0 1 0 0 0 0 0 0 0 14 0
15202022009 0 0 0 0 0 0 10 0 0 0 0 1 0 0 54 3
15202022011 0 0 0 0 1 0 10 0 0 0 0 0 0 0 73 3
15202022901 0 0 0 0 0 0 1 0 0 0 0 0 0 0 19 0
15202032001 0 0 0 0 0 0 0 0 0 0 0 2 0 0 19 1
15202032002 0 0 0 0 0 0 3 0 0 0 0 2 0 0 21 1
15202032010 0 0 0 0 0 0 3 0 0 0 0 0 0 0 12 0
15202032014 0 0 0 0 0 1 0 0 0 0 0 0 0 0 68 0
15202032901 0 0 0 0 0 0 0 0 0 0 0 0 0 0 16 0
15202042013 0 0 0 0 0 0 1 0 0 0 0 2 0 0 26 1
15202042901 0 0 0 0 0 0 7 0 0 0 0 0 0 0 8 1

Escolaridad

ESCOLARIDAD Años de escolaridad

tabla_ESCOLARIDAD <- table(x$clave, x$ESCOLARIDAD, useNA = "no")

colnames(tabla_ESCOLARIDAD) <- c( 
"1","2","3","4","5","6","7","8","9","10", "11","12","13","14", "15", "16", "17", "18", "19", "20", "21","No aplica","Missing")

#write_xlsx(tabla_ESCOLARIDAD, "tabla_ESCOLARIDAD.xlsx")

a_ESCOLARIDAD <- head(tabla_ESCOLARIDAD,50)

kbl(a_ESCOLARIDAD) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 No aplica Missing
15101011001 94 18 23 34 36 31 48 20 96 44 66 56 436 27 105 79 73 158 0 16 0 4 81
15101011002 60 15 7 8 12 15 34 17 44 35 53 31 296 14 71 53 38 128 0 6 1 2 61
15101021001 212 29 34 39 47 32 79 48 145 57 235 89 877 52 148 113 141 259 1 31 2 6 74
15102012002 9 1 0 0 1 3 3 0 3 0 1 0 0 0 0 0 1 1 0 0 0 0 2
15102012003 51 14 18 20 26 13 36 14 34 13 27 28 141 5 15 15 21 46 2 4 0 1 21
15102022007 4 3 2 3 4 0 2 0 4 1 1 4 7 0 0 0 4 0 0 0 0 0 0
15102032005 16 2 2 6 5 2 8 1 7 1 6 5 25 2 5 7 2 10 0 0 0 0 0
15102032008 2 0 1 0 0 0 0 0 0 0 0 1 5 0 0 0 0 0 0 0 0 0 5
15102032901 1 2 0 0 0 1 2 2 3 3 3 2 9 0 0 1 1 0 0 0 0 0 0
15102042001 28 4 7 5 6 5 17 5 20 5 7 7 42 3 6 2 2 8 0 1 0 0 1
15102052004 21 2 5 11 8 7 11 7 29 10 13 13 58 8 12 11 8 19 0 1 0 0 5
15102052006 0 0 0 0 0 0 1 0 1 1 2 0 12 3 1 2 3 4 0 0 0 0 0
15201011001 111 28 24 26 34 24 35 36 115 60 166 68 533 11 213 30 69 83 0 15 1 1 33
15201012901 9 2 0 1 1 1 0 0 4 1 0 0 5 0 1 1 2 4 0 1 0 3 1
15201022002 1 1 3 5 4 3 6 0 5 1 0 1 9 0 11 0 2 0 0 0 0 0 0
15201032006 7 2 0 0 0 0 1 0 1 0 1 2 11 5 0 0 0 1 0 0 0 0 0
15201032007 0 0 0 0 0 0 0 0 0 0 0 3 22 0 3 10 10 3 0 1 0 0 0
15201032901 3 2 3 2 2 2 6 2 2 0 1 1 8 0 0 0 0 1 0 0 0 0 0
15201042009 0 1 0 0 1 1 1 0 5 0 0 1 5 0 0 0 0 0 0 0 0 0 0
15201042021 10 0 3 4 6 4 4 1 4 1 4 1 18 0 1 3 2 4 0 0 0 0 5
15201042901 9 1 2 0 0 0 1 1 1 1 1 1 3 0 0 0 0 0 0 0 0 0 1
15201052001 6 5 1 3 3 3 6 2 3 3 2 1 11 1 0 0 0 3 0 0 0 0 10
15201052003 7 1 1 3 0 1 6 2 4 0 3 1 15 0 3 0 4 0 0 0 0 0 2
15201052012 2 2 1 2 0 0 4 1 0 0 2 2 7 0 0 0 0 1 0 0 0 0 1
15201052013 1 1 1 0 2 1 1 0 2 0 0 0 2 0 0 0 1 0 0 0 0 0 5
15201052020 3 1 1 3 0 1 1 0 3 1 0 0 3 0 1 0 0 0 0 0 0 0 0
15201052901 2 2 0 0 1 0 1 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 1
15201062005 0 0 0 0 0 0 0 0 0 0 0 0 3 0 0 0 1 0 0 0 0 0 0
15201062010 8 0 5 4 3 2 9 0 1 1 1 0 5 1 0 0 0 0 0 0 0 0 0
15201062017 0 0 0 0 0 0 0 0 0 0 0 1 1 0 0 0 0 0 0 0 0 0 0
15201062901 1 1 1 0 1 0 0 0 0 0 1 0 0 0 0 0 0 0 0 0 0 0 0
15201072901 9 1 4 3 4 1 3 1 5 2 1 1 8 0 2 1 0 2 0 1 0 0 4
15201082004 0 0 0 0 0 0 0 0 1 0 0 0 3 3 0 0 0 0 0 0 0 0 0
15201991999 6 5 7 19 19 22 27 3 16 24 26 28 157 2 17 20 14 16 0 1 0 0 7
15202012006 15 1 9 2 3 3 6 3 7 4 0 0 3 0 0 0 0 0 0 0 0 0 0
15202012008 1 0 2 3 2 1 0 0 1 0 0 0 1 0 0 0 0 0 0 0 0 0 1
15202012012 7 0 0 0 2 0 0 2 4 0 0 0 1 0 0 0 0 0 0 0 0 0 3
15202012015 20 6 2 5 4 5 12 1 13 2 4 4 41 2 9 1 10 19 0 3 0 0 6
15202022004 12 3 3 2 1 3 3 2 7 1 1 1 2 0 0 0 0 0 0 1 0 0 0
15202022005 4 3 0 0 1 0 0 0 2 0 0 1 2 0 0 0 1 0 0 0 0 0 1
15202022009 15 1 7 4 7 1 4 1 6 1 5 3 9 0 0 0 1 0 0 0 0 0 3
15202022011 9 1 1 2 3 0 0 2 1 4 8 3 21 0 23 1 1 4 0 0 0 0 3
15202022901 9 0 2 1 0 0 4 0 2 0 1 0 1 0 0 0 0 0 0 0 0 0 0
15202032001 10 0 0 1 0 0 2 1 0 0 0 0 1 0 5 0 1 0 0 0 0 0 1
15202032002 9 0 1 1 1 4 2 0 2 1 1 0 2 0 1 0 1 1 0 0 0 0 0
15202032010 4 2 0 2 0 0 1 1 2 0 1 0 1 0 0 0 0 1 0 0 0 0 0
15202032014 1 0 0 0 0 0 0 0 0 0 7 0 21 1 37 0 1 1 0 0 0 0 0
15202032901 7 1 3 3 0 0 0 0 2 0 0 0 0 0 0 0 0 0 0 0 0 0 0
15202042013 8 1 1 3 1 0 0 0 4 0 0 1 2 0 7 0 0 0 0 0 0 0 2
15202042901 5 1 1 0 2 2 0 0 3 0 0 1 0 0 0 0 0 0 0 0 0 0 1

Pueblo indígena

P16A_GRUPO Pueblo indígena u originario (grupo)

Atencion: hay que correr este pedazo de codigo una vez se cargue la tabla original.

tabla_P16A_GRUPO <- table(x$clave, x$P16A_GRUPO, useNA = "no")

# colnames(tabla_P16A_GRUPO) <- c( 
# "Mapuche","Aymara","Rapa Nui","Lican Antai","Quechua","Colla","Diaguita","Kawésqar","Yagán o Yamana","Otro pueblo","No aplica","Missing")


#write_xlsx(tabla_P16A_GRUPO, "tabla_P16A_GRUPO.xlsx")

a_P16A_GRUPO <- head(tabla_P16A_GRUPO,50)

kbl(a_P16A_GRUPO) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
1 2 3 4 5 6 7 10 98 99
15101011001 49 239 1 3 29 1 6 44 1137 36
15101011002 27 102 1 2 8 0 5 26 768 62
15101021001 172 261 0 9 28 0 14 48 2143 75
15102012002 0 23 0 0 0 0 0 0 2 0
15102012003 11 419 0 3 11 0 4 17 95 5
15102022007 0 29 0 0 0 0 0 0 10 0
15102032005 0 95 0 0 1 0 0 0 16 0
15102032008 0 12 0 0 0 0 0 0 2 0
15102032901 0 24 0 0 2 0 1 1 2 0
15102042001 6 128 0 0 3 0 0 0 43 1
15102052004 16 48 0 0 4 0 3 14 170 4
15102052006 1 12 0 0 0 0 0 0 17 0
15201011001 113 668 0 1 12 1 3 4 881 33
15201012901 0 20 0 0 0 0 0 0 17 0
15201022002 3 32 0 0 0 0 0 0 17 0
15201032006 1 25 0 0 0 0 0 0 5 0
15201032007 0 13 0 0 0 0 0 0 39 0
15201032901 0 35 0 0 0 0 0 0 0 0
15201042009 0 15 0 0 0 0 0 0 0 0
15201042021 0 63 0 0 3 0 0 0 7 2
15201042901 0 16 0 0 2 0 0 0 3 1
15201052001 0 48 0 0 4 0 0 1 0 10
15201052003 0 30 0 0 0 0 0 1 20 2
15201052012 0 21 0 0 0 0 0 0 4 0
15201052013 0 11 0 0 0 0 0 0 1 5
15201052020 0 15 0 0 1 0 0 1 1 0
15201052901 0 6 0 0 0 0 0 0 0 1
15201062005 0 1 0 0 0 0 0 0 3 0
15201062010 0 40 0 0 0 0 0 0 0 0
15201062017 0 1 0 0 0 0 0 0 1 0
15201062901 0 5 0 0 0 0 0 0 0 0
15201072901 0 33 0 0 0 0 0 8 11 1
15201082004 0 1 0 0 0 0 0 0 6 0
15201991999 3 226 0 0 112 3 0 2 87 3
15202012006 0 56 0 0 0 0 0 0 0 0
15202012008 0 11 0 0 0 0 0 0 0 1
15202012012 0 17 0 0 0 0 0 0 0 2
15202012015 1 128 0 0 0 0 0 2 34 4
15202022004 0 41 0 0 0 0 0 1 0 0
15202022005 0 15 0 0 0 0 0 0 0 0
15202022009 0 62 0 0 0 0 0 0 2 4
15202022011 6 31 0 0 0 0 0 1 49 0
15202022901 0 20 0 0 0 0 0 0 0 0
15202032001 1 15 0 0 0 0 0 0 5 1
15202032002 0 27 0 0 0 0 0 0 0 0
15202032010 0 15 0 0 0 0 0 0 0 0
15202032014 6 0 0 0 0 0 0 0 63 0
15202032901 0 16 0 0 0 0 0 0 0 0
15202042013 0 22 0 0 0 0 0 0 8 0
15202042901 0 13 0 0 0 0 0 0 2 1

Códigos territoriales

REGION_15R Códigos regiones a 15 regiones

tabla_REGION_15R <- table(x$clave, x$REGION_15R, useNA = "no")
#write_xlsx(tabla_P15A, "tabla_P15A.xlsx")

a_REGION_15R <- head(tabla_REGION_15R,50)

kbl(a_REGION_15R) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
15
15101011001 1545
15101011002 1001
15101021001 2750
15102012002 25
15102012003 565
15102022007 39
15102032005 112
15102032008 14
15102032901 30
15102042001 181
15102052004 259
15102052006 30
15201011001 1716
15201012901 37
15201022002 52
15201032006 31
15201032007 52
15201032901 35
15201042009 15
15201042021 75
15201042901 22
15201052001 63
15201052003 53
15201052012 25
15201052013 17
15201052020 18
15201052901 7
15201062005 4
15201062010 40
15201062017 2
15201062901 5
15201072901 53
15201082004 7
15201991999 436
15202012006 56
15202012008 12
15202012012 19
15202012015 169
15202022004 42
15202022005 15
15202022009 68
15202022011 87
15202022901 20
15202032001 22
15202032002 27
15202032010 15
15202032014 69
15202032901 16
15202042013 30
15202042901 16

PROVINCIA_15R Códigos provincias a 15 regiones

tabla_PROVINCIA_15R <- table(x$clave, x$PROVINCIA_15R, useNA = "no")
#write_xlsx(tabla_PROVINCIA_15R, "tabla_PROVINCIA_15R.xlsx")

a_PROVINCIA_15R <- head(tabla_PROVINCIA_15R,50)

kbl(a_PROVINCIA_15R) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
151 152
15101011001 1545 0
15101011002 1001 0
15101021001 2750 0
15102012002 25 0
15102012003 565 0
15102022007 39 0
15102032005 112 0
15102032008 14 0
15102032901 30 0
15102042001 181 0
15102052004 259 0
15102052006 30 0
15201011001 0 1716
15201012901 0 37
15201022002 0 52
15201032006 0 31
15201032007 0 52
15201032901 0 35
15201042009 0 15
15201042021 0 75
15201042901 0 22
15201052001 0 63
15201052003 0 53
15201052012 0 25
15201052013 0 17
15201052020 0 18
15201052901 0 7
15201062005 0 4
15201062010 0 40
15201062017 0 2
15201062901 0 5
15201072901 0 53
15201082004 0 7
15201991999 0 436
15202012006 0 56
15202012008 0 12
15202012012 0 19
15202012015 0 169
15202022004 0 42
15202022005 0 15
15202022009 0 68
15202022011 0 87
15202022901 0 20
15202032001 0 22
15202032002 0 27
15202032010 0 15
15202032014 0 69
15202032901 0 16
15202042013 0 30
15202042901 0 16

COMUNA_15R Códigos comunas a 15 regiones

tabla_COMUNA_15R <- table(x$clave, x$COMUNA_15R, useNA = "no")
#write_xlsx(tabla_COMUNA_15R, "tabla_COMUNA_15R.xlsx")

COMUNA_15R <- head(tabla_COMUNA_15R,50)

kbl(COMUNA_15R) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
15101 15102 15201 15202
15101011001 1545 0 0 0
15101011002 1001 0 0 0
15101021001 2750 0 0 0
15102012002 0 25 0 0
15102012003 0 565 0 0
15102022007 0 39 0 0
15102032005 0 112 0 0
15102032008 0 14 0 0
15102032901 0 30 0 0
15102042001 0 181 0 0
15102052004 0 259 0 0
15102052006 0 30 0 0
15201011001 0 0 1716 0
15201012901 0 0 37 0
15201022002 0 0 52 0
15201032006 0 0 31 0
15201032007 0 0 52 0
15201032901 0 0 35 0
15201042009 0 0 15 0
15201042021 0 0 75 0
15201042901 0 0 22 0
15201052001 0 0 63 0
15201052003 0 0 53 0
15201052012 0 0 25 0
15201052013 0 0 17 0
15201052020 0 0 18 0
15201052901 0 0 7 0
15201062005 0 0 4 0
15201062010 0 0 40 0
15201062017 0 0 2 0
15201062901 0 0 5 0
15201072901 0 0 53 0
15201082004 0 0 7 0
15201991999 0 0 436 0
15202012006 0 0 0 56
15202012008 0 0 0 12
15202012012 0 0 0 19
15202012015 0 0 0 169
15202022004 0 0 0 42
15202022005 0 0 0 15
15202022009 0 0 0 68
15202022011 0 0 0 87
15202022901 0 0 0 20
15202032001 0 0 0 22
15202032002 0 0 0 27
15202032010 0 0 0 15
15202032014 0 0 0 69
15202032901 0 0 0 16
15202042013 0 0 0 30
15202042901 0 0 0 16

Parte III: Análisis por comuna

i Debemos simplemente seleccionar el codigo comunal correcto. No hay cabecera para el código, sólo nombre de fila.

Obtengamos la suma para el campo P10:

variable <- filter(x, x$COMUNA == 15202)
variable <- sum(variable$P10)
variable
## [1] 2168

Despleguemos los 5 primeros registros de la comuna 15202:

variable1 <- filter(x, x$COMUNA == 15202)
a_011 <- head(variable1,5)
kbl(a_011) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
REGION PROVINCIA COMUNA DC AREA ZC_LOC ID_ZONA_LOC NVIV NHOGAR PERSONAN P07 P08 P09 P10 P10COMUNA P10PAIS P11 P11COMUNA P11PAIS P12 P12COMUNA P12PAIS P12A_LLEGADA P12A_TRAMO P13 P14 P15 P15A P16 P16A P16A_OTRO P17 P18 P19 P20 P21M P21A P10PAIS_GRUPO P11PAIS_GRUPO P12PAIS_GRUPO ESCOLARIDAD P16A_GRUPO REGION_15R PROVINCIA_15R COMUNA_15R P10COMUNA_15R P11COMUNA_15R P12COMUNA_15R clave
15 152 15202 1 2 6 13225 1 1 1 1 1 73 1 98 998 3 15101 998 1 98 998 9998 98 2 4 6 2 1 2 98 7 98 98 98 98 9998 998 998 998 4 2 15 152 15202 98 15101 98 15202012006
15 152 15202 1 2 6 13225 3 1 1 1 1 78 1 98 998 2 98 998 1 98 998 9998 98 3 98 98 98 1 2 98 7 98 98 98 98 9998 998 998 998 0 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 3 1 2 2 2 78 1 98 998 2 98 998 1 98 998 9998 98 3 98 98 98 1 2 98 7 98 1 1 3 1965 998 998 998 0 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 3 1 3 5 2 52 1 98 998 2 98 998 1 98 998 9998 98 1 2 5 2 1 2 98 7 98 2 1 4 1995 998 998 998 2 2 15 152 15202 98 98 98 15202012006
15 152 15202 1 2 6 13225 3 1 4 11 1 44 1 98 998 2 98 998 1 98 998 9998 98 1 3 5 2 1 2 98 1 Z 98 98 98 9998 998 998 998 3 2 15 152 15202 98 98 98 15202012006

Crucemos con la relación de parentezco:

tabla_P07_15202 <- table(variable1$clave, variable1$P07)
kbl(tabla_P07_15202) %>%
  kable_styling(bootstrap_options = c("striped", "hover")) %>%
  kable_paper() %>%
  scroll_box(width = "100%", height = "300px")
1 2 4 5 6 7 8 11 12 13 14 15 16 17
15202012006 17 7 4 13 0 0 0 2 4 1 2 5 1 0
15202012008 7 3 0 2 0 0 0 0 0 0 0 0 0 0
15202012012 9 3 0 5 1 0 0 0 0 0 1 0 0 0
15202012015 59 8 6 29 0 3 0 3 3 0 11 18 1 28
15202022004 16 5 2 12 0 1 0 0 1 0 4 1 0 0
15202022005 8 2 0 4 0 0 1 0 0 0 0 0 0 0
15202022009 26 11 3 18 3 2 0 0 1 0 2 2 0 0
15202022011 12 3 2 7 0 0 0 0 9 0 3 0 0 51
15202022901 9 4 1 5 0 0 0 0 0 0 0 1 0 0
15202032001 8 1 1 6 0 0 0 0 0 0 1 0 0 5
15202032002 14 4 1 6 0 0 0 0 0 0 0 2 0 0
15202032010 8 1 0 4 0 0 0 0 1 0 1 0 0 0
15202032014 0 0 0 0 0 0 0 0 0 0 0 0 0 69
15202032901 10 5 0 1 0 0 0 0 0 0 0 0 0 0
15202042013 11 3 1 5 0 2 0 0 0 0 1 0 0 7
15202042901 6 1 0 1 1 2 0 0 2 0 2 0 1 0
15202992999 1 0 0 0 0 0 0 0 0 0 0 0 0 0